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Prefacio 


Los Amstrad CPC 464/664/6128 tienen una estupenda relación calidad/precio y 
son máquinas extremadamente fáciles de usar. Tanto los usuarios novatos como 
los expertos podrán tener muchas horas de entretenimiento y agradables sorpresas 
con ellas. 

La versión de BASIC del Amstrad (LOCOMOTIVE) es muy fácil de manejar y 
es muy potente. Muchas de las utilidades del Amstrad están disponibles para los 
programadores en BASIC a través del “Locomotive”. 


Disposición de los programas 


Todos los programas han sido clasificados, explicados y listados de una forma 
fácil de leer y teclear, incluyendo además sugerencias/mejoras para realizar poste- 
riormente al programa. Esperamos que te divierta este libro y los juegos que 
incluye, y continúes obteniendo lo “mejor” de tu Amstrad. 


Caracteres especiales 


En los programas incluidos en este libro se han utilizado espacios para ayudar 
a su comprensión. No necesitas teclearlos, ya que desperdiciarías RAM. Hay 
algunas líneas con el símbolo dos puntos solamente; también éstas se insertan 
para hacer los programas más legibles y no necesitan ser introducidas. 


Los caracteres extraños que van entre coraillas en los listados de los programas 
representan espacios y se utilizan para evitar confusiones. De este modo, donde 


veas el simbolo 


“6 


>” tendrás que introducir un espacio. 


La letra “I” y el número “1” pueden causar alguna confusión a veces, así como 
la letra “O” y el número “0”. 

Una vez que te familiarices con ellos no te causarán ningún problema y sólo 
tendrás que reconocer la diferencia entre ellos. 


La letra I aparecerá como: 1 
El número 1 aparecerá como: 1 
La letra O aparecerá como: O 
El número O aparecerá como: O 


Errores de tecleado que ocurren frecuentemente (y son fácilmente pasados por 
alto) con el Amstrad CPC 64/664/464: 


PONS 


Un 


No confundir la letra O con el dígito 0 (cero). 

No confundir la letra mayúscula 1 con el dígito 1 (uno). 

Una coma y un punto no son intercambiables. 

Cuando aparecen los dos puntos (:) no teclear un punto y coma (;). La 
regla inversa también es aplicable. 

Las dos comillas (“) no son intercambiables con el apóstrofo (?. 
Cuando un programa muestra uno o más espacios, no olvidar incluirlos 
(pulsa la barra espaciadora). El ordenador registra un espacio como un 
carácter ordinario. 

Los paréntesis son importantes, particularmente en la versión en BASIC de 
las fórmulas matemáticas. Un paréntesis de más o un paréntesis de menos, 
frecuentemente causa un error de sintaxis (syntax error). La exclusión de 
dos paréntesis externos puede causar un error “lógico” que permitirá que el 
programa se ejecute, pero producirá resultados erróneos. 

No olvides pulsar la tecla SHIFT a la vez cuando tengas que introducir los 
siguientes caracteres: 


SNA +, E, Y, Sá, Srl =,1, (E AS ya 
Los paréntesis son () y no [ ]. 


consejo 


Cuando hayas tecleado un programa y no puedas ejecutarlo correctamente, 
incluso después de numerosos intentos de corrección, entonces deja el trabajo 
durante el resto del día. Es muy probable que cuando lo vuelvas a mirar descansa- 
do encuentres el error enseguida. 


Comprobación 7? 


Sistema especial de comprobación 
de programas 


Por qué 


Cuando es tecleado un libro de programas como éste, todo el mundo, invaria- 
blemente, comete errores al leer y teclear, y entonces consume tiempo intentando 
averiguar dónde y cuál es la causa del error (errores). 

Incluso los programadores experimentados con frecuencia no pueden identifi- 
car un error sólo listando la línea relevante, y necesitan hacer el tedioso trabajo de 
repasar con el libro, especialmente con las sentencias DATA. 

Sabiendo que ésta es una de las causas de mayor frustración al teclear los 
programas, nosotros hemos decidido hacer algo al respecto. 

Hay una pequeña rutina en este libro que deberás teclear y salvar ANTES de 
introducir los demás programas. 

Usando esta rutina serás capaz de descubrir si has cometido algún error al 
teclear y en qué líneas, antes incluso de ejecutar el programa. 

En efecto, esto significa que con este libro no necesitas emplear mucho tiempo 
para localizar los errores tecleados, simplemente ejecuta la rutina y mira la 
pantalla para identificar las líneas que contienen errores. Es así de fácil. 

La idea que está detrás de la rutina es una comprobación única que se calcula 
en cada línea del programa tal como la has tecleado. Compara este valor de 
comprobación con el valor de esa línea en el listado situado después del programa 
en este libro; si es el mismo la línea es correcta, si no lo es hay un error en esa 
línea. 


1 


Cuándo 


El método más simple es introducir el programa de COMPROBACION ahora 
y salvarlo en cinta o disco. 

Puedes teclear el programa de comprobación en cualquier momento, incluso si 
has comenzado a teclear un programa. No puedes, por supuesto, cargar (LOAD) 
el comprobador desde cinta o disco porque borrarás todo lo que hayas tecleado 
hasta el momento. 

La solución obvia es hacer un MERGE con los programas. El programa de 
COMPROBACION deberá ser salvado en una cinta aparte para hacer más fácil 
su acceso. 


¿Cómo saber si el comprobador ha sido 
introducido correctamente ? 


Después de haber tecleado el comprobador lo más lógico será verificar el 
programa para estar seguro de que es correcto. ¿Pero es posible hacer esto? Si 
sigues las instrucciones será posible verificar el comprobador. 


Teclea y salva el comprobador*. 

Ejecuta (RUN) el comprobador y se verificará a sí mismo. 

Coteja la salida con la tabla de valores del final del programa. 

Si el programa es incorrecto, edita y corrige las líneas incorrectas y vuelve 
a salvar el programa. 


E 


A continuación está el listado de COMPROBACION y las instrucciones para 
su uso. 


Inicializar programa y ordenar entrada 


60000 CLS:LOCATE 11,1:PRINT "PROGRAMA DE 
COMPROBACION" 


' 
] 
' 
| 
l 
| 
l 
] 
| 
' 
| —¿£0010 LOCATE 1,5:PRINT "SALIDA POR IMPRE 


* Para verificar el programa de COMPROBACION es necesario cambiar la variable LIMI- 
TE = 60000 por LIMITE = 60270, en la línea 60060 del programa COMPROBACION. 
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SORA (1) O PANTALLA (P)2"; 

£0020 X$=INKEYS$: IF X$="" THEN 60020 

£0030 IF X$="1” OR X$="i" THEN CANAL=8:P 

RINT "I" 

60040 IF X+$="P" OR X$="p" THEN CANAL=0:P 

RINT "P" 

£0050 LOCATE 1,10: INPUT "NUMERO DE LINEA 
DE COMIENZO";X$: 1F VAL(X$)>0 THEN INIC= 

VAL(X$) ELSE 60050 

£0060 TOTAL=0:LIMITE=60000: MEM=368 : SMEM= 

MEM 


Bucle principal del programa 


60070 : 

£0080 SMEM=PEEK (MEM) +256*PEEK(MEM+1 ) +SME 
M 

£0090 LN=PEEK(MEM+2 ) +256*PEEK(MEM+3): 1F 
LN>=LIMITE THEN 60270 ELSE IF LN<INIC TH 
EN MEM=SMEM:GOTO 460080 

£0100 MEM=MEM+4 : SUMA=0 : Q=0 

£0110 IF PEEK(MEM)=32 THEN MEM=MEM+1:GOT 
O 6£0110 

60120 IF PEEK(MEM)=1 OR PEEK(MEM)=197 TH 
EN MEM=SMEM:GOTO 60190 

£0130 WHILE MEM<SMEM 

60140 CLAVE=PEEK(MEM):1F CLAVE=34 THEN Q 
=Q XOR 1 

60150 IF Q=1 OR CLAVE<>32 THEN 60170 
60160 ULT=PEEK(MEM-1 ) : SCLAVE=PEEK(MEM+1) 
:¿GOSUB 60220: 1F IGNORA=1 THEN 40180 
60170 SUMA=SUMA+CLAVE 

60180 MEM=MEM+1 : WEND 

60190 PRINT HCANAL>USING "*H+H$HRH"5LN;:PRI 
NT RHCANAL)>" = "¿SUMA 

£0200 TOTAL=TOTAL+SUMA:GOTO £0080 


Chequeo para los REM, etc. 


£0210 : 
60220 IGNORA=0 
60230 IF ULT=44 OR ULT=32 OR ULT=40 OR U 


O 


O 


O 


Oo 0 O 


O O: O 0) 0 0 20 0. 0 
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LT=1 OR (ULT>237 AND ULT<250) THEN IGNOR 


O A=1: RETURN O 
60240 IF SCLAVE=41 OR SCLAVE=1 OR (SCLAV 
E>237 AND SCLAVE<250) THEN IGNORA=1:RETU 

O RN O 


l 
/ 
| 
| 
| 
I 
| 
| 
I 
! 
| 
l 
I 
| 
l 
l 
| 
l 
| 
l 
] 
I 
i 
l 
l 


60250 RETURN 


Salida del total 


60260 : 
60270 PRINT HCANAL:PRINT HCANAL), "TOTAL = 
"¡TOTAL 


Tablas de comprobación 


£0000 = 24e1 60100 = 2751 60200 = 2620 
60010 = 3229 60110 = 3429 60210 = 0 
£0020 = 2048 60120 = 4746 60220 = 1003 
60030 = 3182 60130 = 1442 60230 = 8553 
60040 = 3179 60140 = 4299 60240 = “7236 
£0050 = 5903 60150 = 2503 60250 = 201 
60060 = 4107 60160 = 5868 60260 = O 
60070 = 0 60170 = 2211 

60080 = 3877 60180 = 1572 TOTAL = 886527 
60090 = 8810 60190 = 3437 


Usando el programa de COMPROBACION 


El mayor problema encontrado cuando se teclean programas de un libro son 
los errores cometidos por el usuario. Muchos de ellos son detectados cuando el 
ordenador responde al comando RUN con el mensaje “Syntax Error”. El usuario 
entonces sólo tiene que listar (LIST) la línea y. compararla con la línea del libro. 
Desgraciadamente, algunos errores son más sutiles y no fatales para el programa. 
Este tipo de errores permitirán que el programa se ejecute, pero incorrectamente, y 
el ordenador no será capaz de detectarlos como tales. 

El comprobador es un programa especial que genera una única suma por cada 
línea del programa y una gran suma total de todas las sumas de las líneas. 
Después de cada listado de programa hay una tabla con las sumas de comproba- 
ción. Sólo necesitas comparar los números en la tabla de comprobación de cada 
programa con los generados por el comprobador. Si dos números difieren, com- 
prueba esa línea en particular. 
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10. 


Teclea tu programa de juego, por ejemplo, DIBUJOS. Sálvalo en cinta o 
disco con la sentencia: SAVE “DIBUJOS”. 

Carga de nuevo tu programa de juegos si es necesario, usando la sentencia 
LOAD “DIBUJOS” o el nombre del programa que sea. No ejecutes 
(RUN) el juego en este momento. 


Para agregar el comprobador al final del programa, teclea la sentencia: 
MERGE “COMPROBADOR”. 


Cuando se hayan unido, teclea RUN 60000 para activar el comprobador. 
El programa presentará el siguiente mensaje: 
SALIDA POR IMPRESORA (I) O PANTALLA (P) ? 


Teclea una 1 para mostrarlo por impresora e introduce una P para 
sacarlo por pantalla. 


El comprobador mostrará este mensaje: 
NUMERO DE LINEA DE COMIENZO 


Teclea el primer número de línea del programa que se va a comprobar 
y pulsa ENTER. 
El comprobador sacará ahora la tabla de la suma de comprobación del 
programa. Para pararlo pulsa la tecla ESCAPE una vez, y para que siga 
funcionando pulsa cualquier tecla distinta de ESCAPE. Cuando el compro- 
bador haya terminado puedes borrarlo de la memoria con la instrucción 
DELETE. 


Por ejemplo: 
DELETE 60000-60270 


Comprueba la suma total con la del libro. Si difieren, una línea ha sido 
tecleada incorrectamente. Compara los números de línea hasta que locali- 
ces los errores y, entonces, editalos. 

Repite los pasos 4 a 7 hasta que los programas de juegos estén corregidos. 
En el paso 5 introduce el número de línea de la primera línea incorrecta 
para evitar que el comprobador verifique el programa de juego desde la 
primera línea. 

Cuando el programa de juegos esté ejecutándose satisfactoriamente, borra 
el programa comprobador como se describió arriba. 

Finalmente, salva la versión correcta en una nueva cinta o disco con: 


SAVE “DIBUJOS” 
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Dibujos 


Clasificación: 


GRAFICOS INTERACTIVOS 


Crea fantásticos dibujos basados en rectángulos, triángulos, elipses, cardioides, 
espirales y lemniscatas, siguiendo solamente las instrucciones y observando los 
efectos. 

En cada dibujo se deben contestar un número de preguntas. Para introducir un 
número, tecléalo y pulsa <ENTER> o si no quieres cambiar el número del 
dibujo anterior, sólo pulsa <ENTER >. 

Cuando se complete el dibujo, pulsa <ESPACIO> para comenzar de nuevo. 


SUGERENCIAS DE PROGRAMACION 


Aquí hay algunas combinaciones interesantes que puedes tomar para co- 
menzar: 


Rectángulos: 21, —200, 0, 40, 5, —S5, 0, 150, 0, 0, 1, —1. 
Triángulos: 11, —300, —200, 83, 4, 3, 20, 0,2, 2, 0.03. 
Elipses: 24, 0, 0, 25, 0, 0, 200, 90, —8, 4. 

Cardioides: 26, —300, 0, 35, 15, 0, 100, —7. 

Espirales: 2, 0, 80, 12, —8, —10, 9, 15, 4. 

Lemniscatas: 15, —100, —50, 10, 20, 15, 20000, — 1000. 
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Puedes hacer unas sencillas modificaciones al programa para dibujar líneas en 
lugar de rectángulos o incluso trazar puntos individuales. 


Variables del programa 


RX(), RY() 
WX, WY 
IW() 

AB 


IA, IB 
MA 
R 


Coordenadas de comienzo de la primera figura. 

Número de figuras. 

Incrementos entre las figuras en las direcciones de X e Y. 

Color del lápiz. 

Utilizados temporalmente con INKEYS$,. 

Angulo en radianes. 

Tamaño del triángulo. 

Incremento entre las figuras en TS. 

Incremento en ángulo. 

Coordenadas de las esquinas del rectángulo. 

Desvío (deformación) del rectángulo en cada dirección. 

Incremento en desvíos de X e Y. 

Factores en las fórmulas para elipses, cardioides, espirales y 
lemniscatas. 

Incrementos de A y B. 

Máximo de la espiral (radianes). 

Usado con las coordenadas polares. 


Estructura del programa 


Números 


de líneas 


10-30 
50-130 
150-220 
240-270 
290-370 
390-500 
520-610 
630-690 
710-780 
800-860 
880-930 
950-1030 
1050-1090 
1110-1160 
1180-1240 
1260-1310 
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Funciones 


Inicializar colores 

Menú inicial 

Entrada de datos 
Seleccionar tipo de dibujo 
Control para triángulos 
Control para rectángulos 
Control para elipses 
Control para cardioides 
Control para espirales 
Control para lemniscatas 
Dibujo del triángulo 
Dibujo del rectángulo 
Dibujo de la elipse 
Dibujo de la cardioide 
Dibujo de la espiral 
Dibujo de la lemniscata 


l 
' 
' 
I 
| 
' 
| 
| 
! 
l 
I 
l 
I 
1 
| 
' 
| 
I 
! 
| 
| 
¡ 
I 
| 
l 
| 
| 
| 
| 
| 
I 
l 
I 
I 
| 
' 
' 
t 
| 
' 
| 
1 
| 
| 


Inicializar colores 


10 MODE 1 
20 BORDER 11: INK O,1: INK 1,24: INK 2,0 
30 PAPER O:PEN 1 


Menú inicial 


40 : 

50 CLS:PRINT SPACE$(15)3"DIBUJOS" 

60 PRINT:PRINT:*PRINT ",, Selecciona,nuno,d 
e,los,siguientes" 

70 PRINT:PRINT:PRINT "onu. TIPOS num 
unSelecciona, pulsando" 

80 PRINT:PRINT ".ium.Rectangulo”;SPACES$( 
14)3"R" 

90 PRINT:PRINT:PRINT" iuuuoTriangulo";SPA 
CE$(15);3"T" 

100 PRINT:PRINT:PRINT" uu Elipse"ySPACE 
$(18);"E" 

110 PRINT:PRINT:PRINT" iiuu.tardioide";,SsP 
ACE$(15);"C" 

120 PRINT:PRINT:PRINT" iimm.Espiral";¿SPAC 
ES(17)3"S" 

130 PRINT:PRINT:PRINT"” iuuulemniscata";S 
PACES(14);"L"; 


Entrada de datos 


140 : 

150 X$=INKEY$:1F X$="" THEN 150 ELSE IF 
X$<>"r" AND X$<>"R" AND X$<>"t" AND X$<> 
"T"" AND X$<>"e" AND X$<>"E" AND X$<>"c" 

AND X$<>"C" AND X$<>"s" AND X$<> 'S" AND 
Xx$<>"1" AND X$<>"L" THEN 10 

160 BORDER O:PAPER 2:CLS: INPUT "Color"32 

$: IF 2$<>"" THEN CL=VAL (2$) :PRINT 

170 INK 15,CL 


O “O. +0 


O 
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20 


O 


O. 0 ¿Q: 0” “E € O. 0 0 


O 


O 


180 INPUT "Coor.,de, comienzo, de,,X(-320,,a 
u320)"32$: 1F 2$<>"" THEN SX=VAL(2$):PRIN 
7 

190 INPUT "Coor.,de,comienzo, de, Y(-200,,a 
.200)"32$: 1F 2$<>"" THEN SY=VAL(2%$):PRIN 
y 

200 INPUT "Numero,de,figuras";2$:1F 2$<> 
"" THEN NS=VAL (2%) :PRINT 

210 INPUT "Incremento, de,X,,(-640,a,,640)" 
326: 1F 2$<>"" THEN IX=VAL(2$) :PRINT 

220 INPUT "Incremento, de, Y,,(-400,a,,400)" 
328: 1F 2$<>"" THEN IY=VAL(2$):PRINT 


Seleccionar tipo de dibujo 


230 : 

240 ORIGIN 320,200 

250 MOVE 05,0 

260 IF X$="r" OR X$="R" THEN 390 ELSE IF 
X$="t" OR X$="T" THEN 290 ELSE IF X$="e 
" OR X$="E" THEN 520 

270 IF X$="c" OR X$="C" THEN 630 ELSE I1F 
X$="s" OR X$="S" THEN 710 ELSE 800 


Control para triángulos 


280 : 

290 INPUT "Tamanoninicial,triangulo, (O,a 
us..)"32$6:1F 2%$<>"" THEN TS=VAL(2$) :PRIN 
7 


300 INPUT "Angulo,inicial,(O,La,t6.3)"326: 
IF 2$<>"" THEN AN=VAL (2$) :¿PRINT 

310 INPUT "Incremento,de,tamano";32Z$: 1F 2 
$<>"" THEN IT=VAL (2$):PRINT 

320 INPUT "Incremento,de,nangulo";2$:1F 2 
$<>"" THEN IA=VAL(2$) 

330 CLS 

340 FOR I=1 TO NS:AN=AN+IA:SX=SX+1X:SY=S 
Y+1Y: TS=TS+IT 

350 GOSUB 880 

360 NEXT 

370 IF INKEY$=",," THEN 10 ELSE 370 


O 


O 0 UU 0-4 Oc 0 O 


O (17 0 O 


Or O O: O ¿00 0. Or COL “O: O O 20. 10 


O 


O 


Control para rectángulos 


380 : 

390 RX(1)=SX:RY(1)=SY: INPUT "Esquina,fin 
al,del,punto,, Xx, (-320,,a,320)";32$:1F Z$<>" 
" THEN RX(2)=VAL(2$) :PRINT 

400 INPUT "Esquina,final,del,punto, Y.,(-2 
00,a,200)"32$: 1F 2$<>""” THEN RY(2)=VAL (Z 
$) : PRINT 

410 INPUT "Deformacion,de,_X";2$:1F 2$<>" 
" THEN WX=VAL (2$):PRINT 

420 INPUT "Deformacion,de,Y";2$:1F 2$<>" 
" THEN WY=VAL(2$):PRINT 

430 INPUT "Incremento,de,la,deformacion,, 
denX"32$: 1F 2$<>"" THEN IW(1)=VAL(2$):PR 
INT 

440 INPUT "Incremento,de,la,deformacion,, 
den Y"32$: 1F 2$<>"" THEN IW(2)=VAL (2$) 
450 CLS 

460 FOR I=1 TO NS:¿RX(1)=RX(1)+IX:RY(1)=R 
Y(1)+1Y:RX(2)=RX(2)+1X:RY(2)=RY(2)+1Y 
470 WX=WX+IW(1):WY=WX+IW(2) 

480 GOSUB 950 

490 NEXT 

500 IF INKEY$=",," THEN 10 ELSE 500 


Control para elipses 


510 : 

520 INPUT "Semi,eje,nmayor.,(-320,,a,320)"; 
2$: 1F 2$<>"" THEN A=VAL(2$):PRINT 

530 INPUT "Semi,ejenmenor,(-200,,a,200)"; 
25: 1F 2$<>"" THEN B=VAL(2$):PRINT 

540 INPUT "Incremento,de,eje,nmayor,”" 324: 
IF 2$<>"" THEN IA=VAL (2$) :PRINT 

550 INPUT "Incremento,de,eje,nmenor,, "326: 
IF 2$<>"" THEN IB=VAL(25$):PRINT 

560 CLS 

570 FOR I=1 TO NS:A=A+TIA:B=B+IB 

580 SX=SX+1X:SY=SY+IY 

590 GOSUB 1050 


O YO O “O. 00 Or 0 O: 0 


O 


O 


21 


22 


O (O— € 0-0. 0-50 0: “O O JO CO O 


O 


O 


600 NEXT 
610 IF INKEY$=",," THEN 10 ELSE 610 


Control para cardioides 


620 : 

630 INPUT "Factor,de,Cardioide,,(-320,a,,3 
20)";52$: 1F 2$<>"" THEN A=VAL (2$) :PRINT 
640 INPUT "Factor,de,nincremento";2$:1F 2 
$<>"" THEN IA=VAL(2$):PRINT 

650 CLS 

660 FOR I=1 TO NS:A=A+IA:SX=SX+IX:SY=SY+ 


670 GOSUB 1110 
680 NEXT 
690 IF INKEY$=",," THEN 10 ELSE 6490 


Control para espirales 


700 : 

710 INPUT "Factor,de,espiral";2$:1F 2$<> 
!" THEN A=VAL(2$):PRINT 

720 INPUT "Angulo,maximo";32$: 1F 2$<>"" T 
HEN MA=VAL (2$) :PRINT 

730 INPUT "Factor,de,nincremento";2$: IF 2 
$<>"" THEN IA=VAL(2$) 

740 CLS 

750 FOR I=1 TO NS:A=A+1A:SX=SX+1X:SY=SY+ 
IY 

760 GOSUB 1180 

770 NEXT 

780 IF INKEY$=",," THEN 10 ELSE 780 


Control para lemniscatas 


790 : 

800 INPUT "Factor,de,lemniscata,(grande) 
"52$: 1F 2%$<>"" THEN A=VAL (2$):PRINT 

810 INPUT "Factor,de,incremento";32Z$: IF 2 
$<>"" THEN IA=VAL (25%) 


E E O 


820 CLS 


830 FOR I=1 TO NS:A=A+IA:SX=SX+IX:SY=SY+ 


840 GOSUB 1260 
850 NEXT 


860 1 


F INKEY$=",," THEN 10 ELSE 860 


Dibujo del triángulo 


870 : 


880 REM triangulo 


890 MOVE SX-TS*COS(AN) ,SY-TS*SIN(AN) 


900 DRAWR 2*TS*COS(AN)5,0O 

910 DRAWR -—TS*COS(AN) ex TS*SINCAN) 
920 DRAWR -TS*COS(AN) »,-2*TS*SIN(CAN) 
930 RETURN 


Dibujo del rectángulo 


940 : 


950 REM rectangulo 
960 T1=RX(1)-RX(2):T2=RY(1)-RY(2) 
970 MOVE RX(1),RY(1) 


980 IF Ti=0 OR T2=0 THEN DRAW RX(2),RY(2 


) ¿RETURN 
990 DRAWR WX,WY-T2 


1000 
1010 
1020 
1030 


DRAW RX(2),RY(2) 
DRAWR WX,WY+T2 
DRAW RX(1),RY(1) 
RETURN 


Dibujo de la elipse 


1040 
1050 
1060 
1070 
1080 
1090 


REM elipse 

MOVE SX+A,SY 

FOR AN=0 TO 6.3 STEP 0.1 

DRAW AXCOS(AN)+SX ,B*SIN(AN)+SY 
NEXT :RETURN 


O 


O 


O. 0. 00 O O q 0 


o O 


O 
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Dibujo de la cardioide 


REM cardioide 

MOVE 2*A+SX,SY 

FOR AN=0 TO 6.3 STEP 0.1 
R=A*(1+COS(AN)) 

DRAW R*COS(AN)+SXs+R*SINCAN)+SY 
NEXT:RETURN 


Dibujo de la espiral 


REM espiral 

MOVE SX,SY 

FOR AN=0 TO MA STEP 0.1 

R=AXAN 

DRAW R*COS(AN)+SX,R*SIN(AN)+SY 
NEXT 

RETURN 


Dibujo de la lemniscata 


REM lemniscata 

FOR AN=0 TO 3.2 STEP 0.05 
R=(ABS(AXCOS(AN))),0.5 

PLOT R*COS(AN)+SX,R*SIN(AN)+SY 
PLOT —R*COS(AN)+SX),-R*SIN(AN)+SY 
NEXT :RETURN 


Tablas de comprobación 


10 = 220 60 = 3842 110 = 2354 
2o = 1038 70 = 3438 120 = 2192 
30 = 467 g0 = 2352 130 = 2546 
40 = 0 90 = 2420 140 = O 

50 ==. 1415 100 = 2069 150 = 13611 


24 


160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 


uo'n un an mn 


vo.” uon ono" 


550 
560 
570 
580 
3590 
600 
610 
620 
630 
640 
£50 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


"on 4 4 “un 


"o5 


no... .oao0usn sn 04. n 4202 


o!” 04 


"o.Q. un. pon 


3541 
378 
O 

GC 
875 
2449 
1198 
3541 
176 
201 
10) 

O 
3015 
2363 
3581 
4039 
378 


304846 
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D 


Ibujos 


en 3-D 


Clasificación: 


GRAFICOS INTERACTIVOS 


Utiliza las teclas del cursor para mover el punto parpadeante alrededor de la 
pantalla. Posiciona el cursor y pulsa la tecla “COPY”. Después de hacer esto 
cuatro veces se dibuja la figura. Para volver al menú pulsa la tecla de flecha arriba. 


1. 
2. 


d 
4, 
X 


Siguiente nivel — Pasar al siguiente nivel. 

Cambio coordenadas — Introducir la referencia de la casilla que se desea 
cambiar. 

Redibuja la última figura — Redibuja sin alterar nada. 

Nuevo nivel — Comienza de nuevo. 

Salir — Salida del programa. 


Variables del programa 


G Generación del incremento de la rejilla. 

X(N,N), Y(N,N) Coordenadas de X e Y del punto de referencia (N,N). 
A(G) Valor del incremento de la rejilla. 

XNV, YNV Nuevos valores cuando cambien las coordenadas. 

AS, T Variables temporales. 
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Estructura del programa 
Lineas Función] Actividad 


30-80 Rutina de dibujo 
100-360 Menú 
380-420 Cambio de coordenadas 
440-530 Rutina de generación del cuadrado 
550-1040  Inicialización 
1060-1080 Fin 


Rutina de dibujo 


GOSUB 550 


MODE M:FOR T=1 TO 33 STEP A(G) 

FOR N=1 TO 33-A(G)STEP A(G) 

PLOT X(N,T),Y(34-T,N) 

DRAW X(N+A(G),T),Y(34-T,N+A(G)),1 

PLOT X(T,34-N),Y(N,T) 

DRAW X(T,34-(N+A(G))),Y((N+A(G)),T)>1 
¿NEXT : NEXT 


Cambio de coordenadas 


90 : 

100 IF INKEYS$=",,"THEN 110 ELSE 100 

110 FOR T=0 TO 26: INK 1,T:FOR N=1 TO 50: 
NEXT:¿NEXT 

120 FOR T=1 TO 26:LOCATE 1,1:PRINT CHR$( 
11): NEXT 

130 CLS:MODE 1 

140 IF G=6 THEN 1060 

150 PRINT", NUMERO, DE_LA,FIGURA=,,";G:PRIN 
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DO 1 QQ. 0 OL O 00 20. 0- “Y 0 0 O 0 


O 


160 PRINT", CC. 1... SIGUIENTE, NIVEL," 

170 PRINT",,(.,2.J.. CAMBIO, COORDENADAS" 
180 PRINT",_,C,3.L1._.REDIBUJA_ESTELNIVEL" 
190 PRINT",,,,4,,1..NUEVA,.F IGURA" 

200 PRINT", EL 5SLJIL.L SALIR" 

210 PRINT",C.6,JIL LL CAMBIAL AMPLITUD" 

220 PRINT",,.,7.1..LREDIBUJA, CON NUEVA, AMP 
LITUD" 


230 IF G=S THEN PRINT:PRINT"_ ULTIMA, FIGU 
RA" 

240 A$=INKEYS$ : 

250 LOCATE 1,12:PRINT"QUELORDENAS?" 

260 PEN RND(1)*3+1 

270 IF A$=""THEN 240 

280 LOCATE 1,12:PRINT SPACE$(10):PEN 1 
290 IF A$="1"THEN 440 

300 IF A$="2"THEN 380 

310 IF A$="3"THEN 30 

320 IF A$="4"THEN RUN 

330 IF As$="S5"THEN 1060 

340 IF A$="6"THEN LOCATE 2,10:PRINT",_ AMP 
LITUD_ACTUAL. =."3 AMP: INPUT", AMPLITUD"; AM 
P:*LOCATE 2,10:PRINT SPACES$(30):PRINT SPA 
CE$(30):LOCATE 1,1:GOTO 150 

350 IF A$="7"THEN REDIBUJ=1:GOTO 440 

360 GOTO 240 


Rutina de generación del cuadrado 


370 : 

380 INPUT" INTRODUCE,_,COORDENADAS.,..";D»E 
390 PRINT"LA_COORDENADA";D3",";E5"ES_AHO 
RA";¡X(D,)E)3","3Y(34-E,D) 

400 INPUT" INTRODUCE _NUEVOS,_VALORES.," 5 XNV 
, YNV 

410 X(D,E)=XNV:Y(34-E,D)=YNV 

420 CLS:GOTO 150 


Bucle principal del programa 


430 : 
4640 LOCATE 1,15:PRINT",Por,favor »nespera 
nun, segundo" 
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O 


O 


o. oO 


Óó Oo O UU 10 


O 


O 


450 FOR T=1 TO 33:BORDER RND(1)x*246 

460 FOR N=1 TO 33-A(G)STEP A(G) 

470 X(N+A(G+1),T)=((X(N+A(G),T)-X(N,T))/ 
2)+X(N,T) 

480 Y(N+A(G+1),T)=((V(N+A(G),T)-Y(N,T))/ 
2)+Y(N>T):NEXT:NEXT 

490 G=G+1:1F REDIBUJ THEN G=G-1:REDIBUJ= 
10) 

500 FOR T=1 TO 33 STEP A(G):BORDER RND(1 
)*26 

510 FOR N=1 TO 33 STEP A(G) 

520 X(N,T)=X(N,3T)+(RND(1)* AMP )-AMP/2 
530 Y(N,T)=Y(N,T)+(RND(1)*AMP)-—AMP/2 : NE X 
T:NEXT:BORDER 5:GOTO 30 


Inicializar programa 


540 : 

550 DIM X(33,33),Y(33,33),A1(6),B(4),C(4) 
560 SPEED KEY 20,1 

570 G=1 

580 A(1)=32 

590 A(e)=16 

£600 A(3)=8 

610 A(4)=4 

620 A(5)=2 

630 A(6)=1 

640 CLS 

650 PRINT"SELECCIONA_MODO.(,,0,./.1./.28),.? 


660 A$=INKEY$:1F A$=""THEN 660 
670 IF A$="0"THEN M=0:GOTO 710 
£80 IF A$="1"THEN M=1:GOTO 710 
690 IF A$="2"THEN M=2:GOTO 710 
700 GOTO 660 

710 PRINT","3As$ 

720 INK Os,O 

730 INK 1,26 

740 BORDER 5 

750 INPUT"AMPLITUD,," ¡AMP:CLS 
760 MODE M 

770 A=1 :B=399 

780 FOR T=1 TO 4 

790 FLAG=TEST(A,B) 


O O O Y 


O 


O 


O. DO: QU O 0 


800 PLOT A5,B»1 

810 FOR RETARDO=1 TO 10:NEXT 

820 PLOT A,B,FLAG 

830 A=A+( INKEY (8)>-1)-(INKEY(1)>-1) 

840 B=B+( INKEY (2)>-1)-(INKEY(0)>-1) 

850 IF A<X1 THEN A=4639 

860 IF A>639 THEN A=1 

870 IF B<1 THEN B=399 

8ge0 IF B>399 THEN B=1 

890 IF INKEY(67)=-1 THEN 950:REM TECLA Q 
900 LOCATE 5,10:PRINT"X,=.”¿A-1 

910 LOCATE 5,11:PRINT"Y,=,"¡ABS(B-399) 
920 FOR RETARDO=1 TO 3000:NEXT 

930 LOCATE S5)10:PRINT SPACE$(13):PRINT S 
PACE$(13) 

940 GOTO 790 

950 IF INKEY(9)>-1 THEN B(T)=A:C(T)=B:PL 
OT A,B>,1:PRINT CHR$(7): FOR RETARDO=1 TO 
500:NEXT:NEXT:FOR T=2 TO 4:PLOT B(T-1),C 
(T-1):DRAW B(T),C(T):NEXT:PLOT B(4),C(4) 
:¿DRAW B(1),C(1):GOTO 970 

960 GOTO 790 

970 X(1,1)=B(1):Y(33,1)=C(1):Xx(33,1)=B(2 
) :Y(33,33)=C(2):X(33,33)=B(3):Y(1,33)=C( 
3):X(1,33)=B(4):Y(1,1)=C(4) 

980 FOR T=2 TO 32 

990 X(1,T)=X(1,1)+(RND(1)*AMP)-(AMP/2)+( 
((X(1,33)-X(1,1))/33)*T) 

1000 X(33,T)=X(33,1)+(RND(1)x* AMP )-(AMP/2 
)J+(((X(33,33)-X(33,1))/33)*T) 

1010 Y(1,T)=Y(1,1)+(RND(1)*AMP)-(AMP/2)+ 
(((Y(1,33)-Y(1,1))/33)*T) 

1020 Y(33,T)=Y(33,1)+(RND(1)x*AMP )-(AMP/2 
)+(((Y(33,33)-Y(33,31))/33)xT) 

1030 NEXT 

1040 RETURN 


O QQ: O Doe O 6 <Q Y 


O 


O 


Rutina final 


1050 : 

1060 PRINT"Adios,.por.iahora” 
1070 SPEED KEY 205,1 

1080 END 
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Tablas de comprobación 


32 


O TL TO A 


229 
O 
2052 
2398 
2165 
3670 
e165 
4186 
O 
1479 
2667 
1912 
327 
937 
2137 
1783 
1915 
1987 
1516 
1067 
1710 
ess1 
2383 
757 
1411 
1129 
1169 
1053 
1163 
1204 
1010 
1153 
1022 
6748 
2338 
430 
O 


380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
3580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


250 


840 
850 


900 
910 


uno "ono 4". 4, .4..$.n.ns nn 


1432 
391 
1077 
891 
1579 
704 
1626 
1112 
3027 
3022 
1458 
1455 
1475 
1472 
eese 
1297 
1791 
1812 
1443 
215 
13039 
ei5 
2779 
931 
5842 
6014 
5846 
6018 
176 
201 
0] 
1679 
473 
152 
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Laberinto 
en 3-D 


Clasificación: 


GRAFICOS INTERACTIVOS 


Cuando el programa se inicializa por primera vez debes definir un laberinto y 
seguir los mensajes. Para mover este, oeste, norte o sur, utiliza las teclas del 
cursor. Para mover hacia adelante utiliza la tecla “COPY”; también puedes usar la 
tecla COPY para definir el laberinto y las teclas del cursor para moverte alrede- 
dor. Para terminar pulsa “Q”. 


Variables del programa 


MOV Número de movimientos. 

M(N,N) Matriz del laberinto conteniendo los muros. 

X, Y Tus coordenadas en el labérinto. 

XDIR, YDIR Direcciones de X e Y en las que estás mirando. Pueden ser 
-1,00 +1. 

A, B Posición del cursor cuando defines el laberinto. 

T,N,A$ Variables temporales. 
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Estructura del programa 


Lineas 


Función] Actividad 


10-110 Bucle principal 

120-410 Dibujo de la vista en 3-D 
420-620  Escapaste del laberinto 
630-890  Inicialización 

900-1050 Define el laberinto 
1060-1120 Dibujo del laberinto 


GO O O Y 0 .0 


o. 0 O 
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Inicializar 


10 GOSUB 620 


Bucle principal del programa 


20 : 

30 CLS 

40 IF INKEY(1)>-1 THEN XDIR=1:YDIR=0: INK 
1,0:GOSUB 120: INK 1,24 

50 IF INKEY(8)>-1 THEN XDIR=-1:YDIR=0: IN 

K 1,0:GOSUB 120: INK 1,204 

60 IF INKEY(O)>-1 THEN XDIR=0:YDIR=-1: IN 

K 1,0:GOSUB 120: INK 1,24 

70 IF INKEY(2)>-1 THEN XDIR=0:YDIR=1: INK 
1,0:GOSUB 120: INK 1,24 

80 IF INKEY(9)>-1 AND X+XDIR<32 AND X+XD 

IR>1 AND Y+YDIR<24 AND Y+YDIR>1 AND M(X+ 

XDIR,)Y+YDIR)=32 THEN X=X+XDIR:Y=Y+YDIR:lI 

NK 1,0:GOSUB 120: INK 1,24:MOV=MOV+1: IF X 

=16 AND Y=2 THEN GOSUB 420 

90 IF INKEY(67)>-1 THEN 560 

100 GOTO 40 


Dibujo de la vista en 3-D 


110 : 
120 CLS 
130 IF M(X+XDIR,Y+YDIR)<>32 THEN MOVE 1, 


O 


O. O. 4 O 0 O O .0 


O O 8 


e) 


368:DRAW £39,368:DRAW 639,80:DRAWN 1,80:D 
RAW 1,368:RETURN 

140 IF XDIR<>0 THEN 170 

150 IF M(X+YDIR,Y+YDIR)<>32 THEN MOVE 1, 
368:DRAW 140,298:DRAW 150,149:DRAWN 1,80 

ELSE MOVE 1,298:DRAW 1650,298:DRAW 160,14 
9:DRAW 1,149 

160 IF M(X+(YDIR*-1),Y+YDIR)<>32 THEN MO 
VE 640,368:DRAW 480,2798:DRAW 480,149:DRA 
W 640,80 ELSE MOVE 640,298:DRAW 480,298: 
DRAW 480,149:DRAW 640,149 

170 IF YDIR<>0 THEN 200 

180 IF M(X+XDIR,Y+(XDIR*-1))<>32 THEN MO 
VE 1,368:DRAW 1640,298:DRAW 1£0,149:DRAW 

1,80 ELSE MOVE 1,298:DRAW 140,2798:DRAW 1 
60,149:DRAWN 1,149 

190 IF M(X+XDIR,Y+XDIR)<>32 THEN MOVE 64 
0,368:DRAW 480,298:DRAW 480,149:DRAW 640 
80 ELSE MOVE 6440,298:DRAW 480,2798:DRAW 

480,149:DRAW 640,149 

200 IF M(X+XDIR+XDIR,Y+YDIR+YDIR)<>32 TH 
EN MOVE 1460,298:DRAW 480,298:MOVE 160,14 
9:DRAW 480,149: RETURN 

210 IF XDIR<>0 THEN 240 

220 IF M(X+YDIR,Y+YDIR+YDIR)<>32 THEN MO 
VE 160,298:DRAW 240,260:DRAW 240,186:DRA 
W 160,149 ELSE MOVE 160,260:DRAWR 80,0:D 
RAWR 0,-74: DRAWR-80,0 

230 IF M(X+(YDIR*-1),Y+YDIR+YDIR)<>32 TH 
EN MOVE 480,298:DRAW 400,260:DRAW 400,18 
6:DRAW 480,149 ELSE MOVE 480,260: DRAWR-8 
O,O:DRAWR 0O,-74:DRAWR 80,0 

240 IF YDIR<>0 THEN 270 

250 IF M(X+XDIR+XDIR,Y+(XDIR*-1))<>32 TH 
EN MOVE 160,298:DRAW 240,260:DRAW 240,18 
G6:DRAW 160,149 ELSE MOVE 160,260:DRAWR 8 
OsO:DRAWR 05-74: DRAWR-80 , O 

260 IF M(X+XDIR+XDIR,Y+XDIR>)<>32 THEN MO 
VE 480,298:DRAW 400,260:DRAW 400,186:DRA 
W 480,149 ELSE MOVE 480,260: DRAWNR-80,0:D 
RAWR 0,-74:DRAWR 80,0 

270 IF M(X+XDIR+XDIR+XDIR,Y+YDIR+YDIR+YD 
IR)<>32 THEN MOVE 240,260:DRAW 400,260:M 
OVE 240,18£5:DRAW 400,186: RETURN 

280 IF XDIR<>0 THEN 310 


O O 16 0 
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O: CO O 2 O 230 


O 


O 


290 IF M(X+YDIR,Y+YDIR+YDIR+YDIR)<>32 TH 
EN MOVE 240,260:DRAW 288,238:DRAW 288,20 

7:DRAW 240,186 ELSE MOVE 240,238:DRAWR 4 

8,O:DRAWR 05-31: DRAWR-485,0 

300 IF M(X+(YDIR*-1),Y+YDIR+YDIR+YDIR)<> 
32 THEN MOVE 400,260:DRAW 352,238:DRAYW 3 

52,207:DRAW 400,186 ELSE MOVE 400,238: DR 
AWR-48,0:DRAWR O,-31:DRAWR 48,0 

310 IF YDIR<>0 THEN 340 

320 IF M(X+XDIR+XDIR+XDIR,Y+(XDIR*-1))<> 

32 THEN MOVE 240,260:DRAW 288,238:DRAW e 
88,207:DRAW 240,186 ELSE MOVE 240,238: DR 

AWR 48,0:DRAWR O,-31:DRAWR-485,0 

330 IF M(X+XDIR+XDIR+XDIR,Y+XDIR)<>32 TH 

EN MOVE 400,260:DRAW 352,238:DRAW 352,20 
7:DRAW 400,186 ELSE MOVE 400,238: DRAWR-4 

8,O:DRAWR 0O,-31:DRAWR 485,0 

340 IF M(X+XDIR+XDIR+XDIR+XDIR)Y+YDIR+YD 
IR+YDIR+YDIR>)<>32 THEN MOVE 288,238:DRAW 
352,)238:MOVE 288,207:DRAW 352,207 :RETUR 

N 

350 IF XDIR<>0 THEN 380 

360 IF M(X+YDIR,Y+YDIR+YDIR+YDIR+YDIR)<> 

32 THEN MOVE 288,237:DRAW 320,227:DRAW 3 

20,221:DRAW 288,208 ELSE MOVE 288,227: DR 

AWR 32,0:DRAWR Os,-6:DRAWR-32 5,0 

370 IF M(X+(YDIR*-1),Y+YDIR+YDIR+YDIR+YD 
IR)<>32 THEN MOVE 352,237:DRAW 320,227:D 

RAW 320,221:DRAW 352,208 ELSE MOVE 352,e 

27 : DRAWR-32,0:DRAWR Os,-6:DRAWR 32,0 

380 IF YDIR<>0 THEN 410 

390 IF M(X+XDIR+XDIR+XDIR+XDIR),Y+(XDIR*— 
1))<>32 THEN MOVE 288,237:DRAW 320,3227:D 

RAW 320,221:DRAW 288,208 ELSE MOVE 288,2 
27:DRAWR 3230:DRAWR 0O,-6: DRAWR-325,0 

400 IF M(X+XDIR+XDIR+XDIR+XDIR,Y+XDIR)<> 
32 THEN MOVE 352,237:DRAW 320,227:DRAW 3 
20,221:DRAW 352,208 ELSE MOVE 352,227: DR 
AWR-32,0:DRAWR Os-6:DRAWR 32,0 

410 RETURN 

420 FOR T=1 TO 24 

430 LOCATE 1,1 

440 PRINT CHR$(11) 

450 INK 15,T 

460 NEXT T 


O, Y O CO 0-0 00 


O 


O. “E “0 


O. LD O 4.0 


O 


470 
480 
490 
500 
510 
320 
530 
ENTO 
540 
550 
560 
Re” 

570 
580 
590 
O 30 
600 
610 


FOR T=1 TO 10 

FOR N=500 TO 700 STEP 10 

SOUND 129,T,105,15 

NEXT N:NEXT T 

MODE O 

LOCATE 45,10:PEN 7:PRINT"NECESITASTE" 
LOCATE 4,12:PEN 4:PRINT MOV;",_MOVIMI 


Ss" 

PEN 1 

FOR T=1 TO 3000:NEXT T:GOTO 440 
CLS:PRINT",[Cld.....o........ . CONTINUA 
PRINTU SLP TD cu a asa PARAR" 
A$=INKEY$: 1F A$=""THEN 580 


IF A$="C"OR A$="c"THEN GOSUB 120:GOT 
IF A$="P"OR A$="p"THEN RUN 
GOTO 580 


El jugador escapa del laberinto 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
$<>" 
750 
760 
770 
780 
790 
800 
810 
820 


DIM M(32,24) 

MOV=0 

X=16 

Y=23 

XDIR=0 

YDIR=-1 

MODE 1 

INK 050 

INK 1,204 

BORDER O 
PRINT",_,DDEFINIRLLABERINTO?,,(S/N)" 
A$=INKEYS$S: IF A$<>"N"AND A$<>"S"AND A 
s"AND A$<>"n"THEN 740 

IF A$="N"OR A$="n"THEN 30 
CLS 

FOR T=1 TO 24 

FOR N=1 TO 32 

M(N>,T)=233 

NEXT N 

NEXT T 

M(16,23)=32 


O. “Oo «Q. 
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830 M(14,2)=32 

840 A=16 

850 FOR T=2 TO 31:M(T,1)=154:M(T,24)=154 
¿NEXT T 

860 FOR T=2 TO 23:M(1,T)=149:M(32,T)=149 
¿NEXT T 

870 M(1,1)=194:M(32,1)=195:M(1,24)=193:M 
(32,24)=19e 

88o B=23 

8790 GOSUB 1060 

900 LOCATE As,B 

910 FOR I=1 TO 5SO:NEXT 

920 PRINT"+*" 

930 LOCATE A,B 

940 PRINT CHR$(M(AsB)) 

950 A=A+(INKEY(8)>-1)-(INKEY(1)>-1) 

960 IF A>31 THEN A=31 

970 IF A<2 THEN A=2 

980 B=B+(INKEY(0)>-1)-(INKEY(2)>-1) 

990 IF B>23 THEN B=23 

1000 IF B<2 THEN B=2 

1010 IF INKEY(9)>-1 THEN IF M(A,B)=233 T 
HEN M(As+B)=32 ELSE M(A,B)=233 

1020 IF INKEY(67)>-1 THEN FOR T=0 TO 24: 
INK 1,T:SOUND 2,Tx*2,10,15:NEXT T:RETURN 

1030 SOUND 1,1,15,15 

1040 GOTO 900 


Inicialización 


FOR T=1 TO 24 

FOR N=1 TO 32 
LOCATE N),T 

PRINT CHR$(M(N;,T)) 
NEXT N 

NEXT T 

RETURN 


O 


O 
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331 
10) 
138 
3485 
3737 
3729 
3486 
17309 
1412 
230 
0) 
158 
5064 
1304 
6410 
7825 
1335 
6995 
7236 
6666 
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7770 
8376 
1150 
8363 
7786 
8057 
1189 
8617 
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8523 
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8905 
9780 
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580 
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£00 
510 
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9487 
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4734 
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138 
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790 
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860 
870 
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900 
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940 
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960 = 


970 

980 

990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
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1210 
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1286 
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3337 
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O 
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924 
657 
1317 
395 
401 
201 
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SPACMAN 


Clasificación: 


16 TIEMPO... $ 


JUEGO 
DE TIEMPO LIMITADO 


El objetivo del juego es comer el mayor número posible de bolitas de comida en 
un tiempo límite. Ten cuidado con el “grumps” o hará un bonito desayuno de ti. 


SUGERENCIAS DE PROGRAMACION 


El juego podría hacerse más rápido, pero entonces sería demasiado rápido 
para poder jugar. Podrás generar más bolitas de comida en la pantalla o alterar el 
tiempo límite. 

Utiliza “A” para mover hacia arriba, “Z” para mover hacia abajo, “coma” para 
mover a la izquierda y “punto” para la derecha. 


Variables del programa 


PUNT Puntuación de los jugadores. 
MONSTX, MONSTY Coordenadas de los monstruos. 
JX, JY Coordenadas de los jugadores. 
OBJETOS Número de objetos comidos. 
TIEMPO Segundos que restan. 


A, B Columnas y filas aleatorias. 
FLAG El monstruo ha golpeado un objeto. 
C1 Contador para alternar colores. 


Estructura del programa 


Líneas Función] Actividad 


10-90 Pantalla inicial e inicializar el juego 
100-170  Inicializar pantalla 

180-330 Bucle principal 

340-390 El jugador ha golpeado un objeto 
400-460 Fin del juego 
470-500 Imprime los segundos 

510-520 Alterna colores 


Pantalla inicial e inicializar el juego 


10 MODE 1:INK O,O: INK 1,15: INK 2,18: INK 
3,24 :BORDER O:PAPER O:PEN 1 

20 CLS:PEN 3:PRINT SPACES+$(16)3'"SPACMAN" 
30 LOCATE 5,13:PEN 1:PRINT "Monstruo,a,e 
vitaTiulinm.mwo” 32PEN 2:PRINT CHR$(225) 

40 EVERY 20,2 GOSUB 510 

50 PUNT=0:SYMBOL AFTER 150:SYMBOL 150,60 
)66,153,189,189,153,66,60 

60 LOCATE 5,9:PEN 1:PRINT "Objetos,a,com 
erauto"3:PEN 2:PRINT "uuu." ¡EHR$(150) 
70 LOCATE 10,20:PEN 1:PRINT "Pulsa," 3:PE 
N 3:PRINT "ENTER"; :PEN 1:PRINT ",para,co 
menzar" 

80 IF INKEY(18)<O THEN 80 


Inicializar pantalla 


90 : 
100 CLS:PEN 1 
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110 MONSTX=32 :MONSTY=17: JX=20:JY=12:0BJE 
TOS=0 

120 LOCATE 1,25:PEN 1:PRINT "PUNTUACION. 
coso co TIEMPO co ooo PEN 1 

130 FOR T=1 TO 20 

140 A=CINT(RND(1)*30+5) :B=CINT(RND(1)x*20 

+2): 1F TEST(A*16-8, (25-B)*16+8) OR (A=20 
AND B=12)=2 OR (A=25 AND B=17) THEN GOT 

O 140 ELSE LOCATE A,B:PEN 2:PRINT CHR$(1 
50) 

150 NEXT T:PEN 1 

160 TIEMPO=40:EVERY 50,1 GOSUB 470 


Bucle principal del programa 


170 : 

180 DI:¿:LOCATE JX,JY:PRINT ",," 

190 IF INKEY (31)>-1 THEN JX=JX+1:1F JX> 

38 THEN JX=2 

200 IF INKEY (39)>-1 THEN JX=JX-1:1F JX< 

2 THEN JxX=38 

210 IF INKEY (71)>-1 THEN JY=J]Y+1:1F JY> 

23 THEN JY=2 

220 IF INKEY (69)>-1 THEN JY=JY-1:1F JY< 

2 THEN JY=23 

230 IF TEST(JX*16-8, (25-JY)*15+8)=2 THEN 
GOSUB 340 

240 LOCATE JX,JY:PEN 3:PRINT CHRs$(249) 

250 LOCATE MONSTX,MONSTY:¿PRINT ","3:1F F 

LAG THEN PEN 2:PRINT CHR$(8);CHR$(150) 

260 MONSTX=MONSTX+((JX<MONSTX)-(JX>MONST 
X)*0.75) 

270 MONSTY=MONSTY+((JY<MONSTY )-(JY>MONST 
Y)*0.75) 

280 IF TEST(CINT(MONSTX)+*16-8,(25-CINT(M 
ONSTY))*15+8)=2 THEN FLAG=1 ELSE FLAG=0 

290 LOCATE MONSTX,MONSTY:PEN 1:PRINT CHR 
$(225) 

300 IF JX=MONSTX AND JY=MONSTY THEN GOTO 
410 

310 El 

320 GOTO 180 


O 


O 


O 


El jugador ha golpeado un objeto 


330 : 


340 SOUND 1,100,10,5:0OBJETOS=O0BJETOS+1 


350 IF OBJETOS=20 THE 


N FOR T=100 TO 4000 


STEP 100:SOUND 2,T,10:NEXT T:GOTO 100 


360 PUNT=PUNT+OBJETOS 
370 LOCATE 20,25:PEN 
380 RETURN 


Fin del juego 


390 : 

400 FOR I=200 TO 400 
2, 13,2,)3:NEXT 

410 FOR 1=200 TO 400 
2313)2)3:NEXT 

420 FOR T=200 TO 500 
V:PRINT CHRs(224) 


430 INK 3,26,0:SPEED 
S:PEN 3:PRINT PUNT 
440 FOR T=1 TO 2000:N 
450 RUN 


2:PRINT PUNT:PEN 1 


STEP 25:SOUND 1>,1>,1 
STEP 25:SOUND 1,1),1 
¿NEXT T:LOCATE JX»,J 
INK 5S)5:LOCATE 20,2 


EXT T 


Imprime el tiempo en segundos 


460 : 

470 TIEMPO=TIEMPO-1:L 
IEMPO 

480 IF TIEMPO=0 THEN 
490 RETURN 


Alterna los colores 


500 : 


OCATE 33,25:PRINT T 


GOTO 410 


510 IF Ci=1 THEN C1=0: INK 2,26:RETURN 
520 C1=1: INK 2,18:RETURN 


Tablas de comprobación 


Moa A 


2029 
16540 
3870 
802 
3199 
3709 
4304 
1246 
O 
373 
3905 
3366 
1014 
12231 
668 
1699 
O 
1396 


190 
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220 
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240 
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260 
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280 
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300 
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340 
350 
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370 
380 
390 
400 
410 
420 
430 
440 
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460 
470 
480 
490 
500 
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520 


OTI IT A 


TOTAL = 


1644 
202 
10) 
2886 
1725 
201 
0) 
2021 
1011 


1264451 
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OVNI 


Clasificación: 


JUEGO 
DE TIRO AL BLANCO 


Persigue la retirada de las flotas OVNI con tu caza astral equipado con 
cohetes. Eventualmente abandonarás la Tierra, si no te estrellas contra el paisaje o 
con un OVNI y, cuando veas la impresionante nave-planeta, tu tiempo se estará 
terminando. 

Utiliza “A” para mover hacia arriba, “Z” para abajo y la barra espaciadora 
para disparar. 


SUGERENCIAS DE PROGRAMACION 


Podrías incrementar el número de OVNI y añadir más obstáculos. Podrías 
incrementar también la velocidad del juego: esto lo haría mucho más dificil. 


Variables del programa 


OVNIX, OVNIY Coordenadas de los OVNI. 
JETX, JETY Coordenadas del avión. 

COHX, COHY — Coordenadas de los cohetes. 
AY Cantidad a añadir a JETY. 


PUNT Puntuación del jugador. 
JET$ Cadena del avión. 

BL$ Cadena para borrar el avión. 
LJ,K Temporales. 


Estructura del programa 


Líneas Función] Actividad 


10-140 Inicializar 

150-190 Nuevo intento 
200-260 Bucle principal 
270-350 Movimientos cohetes 
360-460 Movimientos avión 
470-540 Movimientos OVNI 
550-650 Le dio al OVNI 
660-760 Fin del juego 


Inicializar juego, UDG y cadenas 


| 

| 

] 

| 

| 

' 

| 

] 

l 

10 MODE 1:INK 0,0: INK 1,20: INK 2,18: INK | 

3,24 | 

20 SYMBOL 240,0,0,0,0,192,160,224,240:SY | 

MBOL 241,255,255,127,31,27,62,112,0 

30 SYMBOL 242,0,0,0,0,0,0,0,56:SYMBOL 24 | 

3,2461253,282,224, 128,0+050 | 

40 SYMBOL 244,0,0,158,255,255,158,0,0:5Y | 
MBOL 245,192,54,25,47,25,54,192 O 

50 SYMBOL 246,4,32,129,8,64,8,2,32 

£0 SYMBOL 247,64,4,0,145,0,36,0,0: SYMBOL | 

248,15,0,8,128,2,64,0,4 i 

70 SYMBOL 249,2,0,72,0,4,1,32,8:SYMBOL 2 | 

50,1,64,8,0,0,130,16,0:SYMBOL 251,153,40 | 

,84,170,170,84,40,153 | 

80 EXPL$(1)=CHR$(246) ] 

90 EXPL$(2)=CHR$(11)+CHR$(247)+CHR$(10)+ |! 

CHR$ (249) +STRING$(3,8)+CHR$(248)+CHR$(10 | 

) +CHR$ (250) | 

100 EXPL$(3)="," 

110 EXPL$(4)=CHR$(11)+CHR$(32)+CHR$(10)+ | 


O- O O Y 4 


O O: 0" 0-18. 0-0  .O.- 0. 0 “Y 


O 


CHR$ (32 ) +STRING$ (3,8) +CHR$ (32) +CHR$1(10)+ 
CHR$ (32) 

120 JET$=CHR$ (240) +CHR$ (242 )+CHR$(10)+S5T 
RING$ (2,8) +CHR$ (241 ) +CHRs$ (243) 

130 BL$=CHR$ (32) +CHR$ (32) +CHR$(10)+STRIN 
G$ (2,8) +CHR$ (32) +CHR$ (32) 


Nuevo intento 


140 : 

150 OVNIX=10:0VNIY=12 
160 JETX=1:JETY=10:AY=1 
170 PAPER O:CLS:BORDER O 
180 PEN 1:MOVE 0,0 


Bucle principal del programa 


190 : 

200 GOTO 270 

210 GOTO 3650 

220 GOTO 470 

230 IF INKEY(69)>-1 THEN AY=-1 ELSE IF 1 
NKEY(71)>-1 THEN AY=1 

240 IF INKEY(47)=-1 THEN 200 

250 IF JETX>36 OR COHX<>0 THEN 200 ELSE 
COHETE=1 :GOTO 200 


Movimientos cohetes 


260 : 

270 IF COHETE=1 THEN COHETE=0:PUNT=PUNT- 
5: COHX=JETX+3:COHY=JETY:GOTO 210 

280 IF COHX=0 THEN 210 

290 LOCATE COHX)»COHY:PRINT ",," 

300 COHX=COHX+2:1F COHX>39 THEN COHX=0:6 
oTo 210 

310 IF TEST(16*COHX-16,415-16*COHY)=2 TH 
EN 550 

320 I=TEST(16x*C0HX>,415-16*COHY):1F I=2 T 


O 


O 


51 


52 


HEN 550 ELSE IF I=3 THEN LOCATE COHX+1,C 
OHY:PRINT ",," 

330 PEN 3:LOCATE COHX,COHY:PRINT CHR*$(24 
4) 

340 GOTO 210 


Movimientos avión 


350 : 

360 LOCATE JETX,)JETY:PRINT USING "2£";BL$ 
370 JETX=JETX+1: JETY=JETY+AY 

380 IF JETX>39 THEN JETX=1:0OVNIX=10 

390 IF JETY<i THEN JETY=1:AY=1 ELSE IF J 

ETY>22 THEN 460 

400 IF TEST(16*JETX-16,415-16x*JETY)<>0 T 
HEN 660 ] 

410 IF TEST(16*JETX,415-16*JETY)<>0 THEN 
660 

420 IF TEST(16x*JETX-16,)399-16*JETY)<>0 T 
HEN 640 

430 IF TEST(16*JETX,399-16x*JETY)<>0 THEN 
660 

440 PEN 1:LOCATE JETX,JETY:PRINT USING " 

2";JETS 

450 GOTO 220 


Movimientos OVNI 


460 : 

470 IF OVNIX=0 THEN 230 

480 PEN 3:LOCATE OVNIXsOVNIVY: IF RND(1)<0 
93 THEN PRINT ",,” ELSE PRINT CHR$(251) 
490 OVNIX=0VNIX+1: IF OVNIX>39 THEN OVNIX 
=0:G0TO 230 

500 IF RND(1)<0.5 THEN OVNIY=0VNIY+1 ELS 
E OVNIY=0OVNIY-1 

510 IF OVNIY<1 THEN OVNIY=1 ELSE IF OVNI 
Y>22e THEN OVNIY=22 

520 PEN 2:LOCATE OVNIX,OVNIY:PRINT CHR$( 
245) 

530 GOTO 230 


O 


O O 1 O 10065 TE 8 


O 


O E. 0 


Le dio al OVNI 


540 : 

550 IF OVNIX<2 THEN OVNIX=2 ELSE IF OVNI 
X>38 THEN OVNIX=38 

560 IF OVNIY<2 THEN OVNIY=2 ELSE IF OVNI 
Yv>22 THEN OVNIY=22 

570 FOR I=1 TO 4:LOCATE OVNIX,OVNIY:PEN 


INK 3,2*1 : SOUND 1,1,45>,15,1,15,31 
PRINT USING "32. ";EXPL$(I) 
FOR J=1 TO 350:NEXT:NEXT 
INK 3,24 
PUNT=PUNT+100:CLS:PRINT "PUNTUACION,, 
2. "¡PUNT 
630 FOR I=1 TO 1000:NEXT 
640 COHX=0:GOTO 150 


Fin del juego 


650 : 
660 IF JETX>38 THEN JETX=38 ELSE IF JETY 
<2 THEN JETY=28 

PEN 3:FOR K=1 TO 3 

FOR I=1 TO 4:LOCATE JETX,JETY 

SOUND 1,0,12,15»,1»,1»,Ix*K 

PRINT USING "2 ";EXPL$(1) 

FOR J=1 TO 70:NEXT 

NEXT:NEXT 

CLS:LOCATE 10,2:PRINT "TULPUNTUACION 
FUE: PUNT 
740 LOCATE 7,10:PRINT "PULSA,_UNA,_TECLALP 
ARALSEGUIR,,JUGANDO" 
750 IF INKEY$="" THEN 760 ELSE 750 
760 IF INKEY$="" THEN 760 ELSE RUN 
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Tablas de comprobación 


UT] 


1389 
3744 
3169 
3424 
1297 
2489 
4311 
1389 
6603 
881 
5611 
5154 
4103 
O 
16542 
1992 
548 
3513 
10) 
237 
327 
437 
4389 
1539 
3938 
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380 
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400 
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460 
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0) 
4463 
4435 
2550 
1458 
1396 
1434 
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3398 
1396 
1073 
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4109 
1246 
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1344 
1428 
1263 
385 
2607 
3006 
1855 
1787 
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Ataque 
de robot 


Clasificación: 


JUEGO 
DE TIRO AL BLANCO 


Una multitud de naves robots suicidas están atacando tu nave de combate. 
Debes usar el cañón rotatorio para destruir a los atacantes antes de que ellos 
alcancen tu nave. Algunas de las naves robots desaparecen aleatoriamente, por lo 
que dan más puntos que las otras. El marcador se incrementa por los aciertos y 
disminuye por los fallos, así que vigila las balas perdidas. 


SUGERENCIAS DE PROGRAMACION 


Para incrementar la dificultad del juego intenta aumentar la velocidad de los 
atacantes y poner una distancia mortal para ellos. 

Utiliza “I” para rotar el laser que gira en sentido contrario a las manecillas del 
reloj y la barra espaciadora para disparar el laser. 


Variables del programa 


IMPAC Suma de las coordenadas necesarias para conseguir 
el impacto. 

INICX(4), INICY(4) Coordenadas de comienzo para cada nave. 

DRN Dirección (1-4) del laser. 
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EXISTE(4) Existencia de cada nave. 
LASERX(4) LASERY(4) Cuatro posiciones del laser. 


LSX(4), LSY(4) Punto de coordenadas de las posiciones del laser. 
LASS(4) Cadena del laser. 

LASBLS(4) , Cadena para borrar la sección del laser. 
NAVES Cadena de la nave enemiga. 

NAVEX(4), NAVEY(4) Coordenadas de las naves. 

VELX(4), VELY(4) Velocidades de las naves. 

PUNT Puntuación del jugador. 

FINX, FINY Coordenadas del punto final del laser. 
BLS$ Para borrar una nave enemiga. 

EXPLS$ Explosión. 

IJ Temporales. 


Estructura del programa 
Líneas Función] Actividad 


10-360 Inicializar 
370-430 Bucle principal 
440-530 Movimientos de las naves 
540-680 Fuego del laser 
690-760 Acierto 
770-800 Nueva nave 
810-840 Actualizar el marcador 
850-930 Fin del juego 


Inicializar juego 


10 MODE 1: INK O,15:3 INK 1,23: INK 2,2: INK 
3,0:DEG 

20 SYMBOL 240,16,48,96,96,224,193,226,25 
4:SYMBOL 241,231,199,195,224,96,96,48,16 
30 SYMBOL 242,8,12,636,7+131,71,127:SYMB 
OL 243,231,227,195,)7,)3,)3,65,4 

L 245)251127)12,3159,)351,1,1 

SO SYMBOL 246,128,128,128,192,240,48,216 
,223:SYMBOL 247,223,2165,48,240,192,128,1 
28,128 

60 SYMBOL 248,128,4,64,0,144,5,40,134:SY 
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O UU Oe 00 


MBOL 249,67,177,68,165,68,0,128,16 

70 SYMBOL 250,4,0,129,16,36,129,146,34 :SY 
MBOL 251,25,162,16,)65,0,8,0,129 

80 NAVE$=CHR$ (240) +CHR$ (242) +CHR$(10)+ST 
RING$ (2,8) +CHR$ (241 ) +CHR$ (243) 

90 EXPL$=CHR$ (248 ) +CHR+$ (250) +CHR$(10)+ST 
RING$ (2,8) +CHR$(249)+CHR$(251) 

100 LAS$(1)=STRING$(2,206) :LAS$(3)=LAS$( 
1) 

110 LAS$(2)=CHR$ (206)+CHR$(10)+CHR$(8)+C 
HR$ (206) :LAS$(4)=LAS$(2) 

120 LASBL$(1)=STRING+$(2,32) :LASBL$(3)=LA 
SBL+$(1) 

130 LASBL$(2)=CHR$ (32 ) +CHR$ (10)+CHR$(8)+ 
CHR$ (32) :LASBL$(4)=LASBLS$ (2) 

140 LASERX(1)=20:LASERX(2)=19:LASERX (3)= 
20: LASERX (4 )=22 

150 LASERY(1)=12:LASERY(2)=13:LASERY (3)= 
15: LASERY(4)=13 

160 LSX(1)=320:LSX(3)=320:LSX(2)=287 :LSX 
(4)=353 

170 LSY(1)=224:LSY(2)=191:LSY(4)=191:LSY 
(3)=158 

180 DRN=1 :VELX(1)=0:VELX(2)=1:VELX(3)=0: 
VELX(4)=-1 

190 VELY(1)=1:VELY(2)=0:VELY(3)=-1:VELY ( 
4)=0 

200 PAPER O:CLS:BORDER 15 

210 BL$=STRING$(25,143)+CHR$(10)+STRING$ ( 
2,)8)+STRING+$ (2,143) 

220 PEN 1:FOR I=1 TO 40:FOR J=13 TO 14:L 
OCATE I,J:PRINT CHR$(143):NEXT:NEXT 

230 FOR I=20 TO 21:FOR J=1 TO 25:LOCATE 
I,J:PRINT CHR$(143);:NEXT:NEXT:LOCATE 1, 
1 

240 PEN O:PAPER 1:LOCATE 19,12:PRINT STR 
ING$ (4,206) 

250 LOCATE 19,13:PRINT CHR$(206)3",..," 50H 
R$(206) 

260 LOCATE 19,14:PRINT CHR$(206)3",.,."53C0H 
R$(206) 

270 LOCATE 19,15:PRINT STRING$(4,206) 
280 PEN 2:LOCATE 20,13 

290 PRINT CHR$ (244 )+CHR$ (246)+CHR$(10)+S 
TRING$ (25,8) +CHR$ (245) +CHR$ (247) 


- COL 0: 0) 
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O 


O 00. LO 00 0 O O O O. DO 


O 


O 


300 FOR I=1 TO 4:EXISTE(I)=1:NEXT 

310 DRN=1:LOCATE LASERX(DRN) ,LASERY(DRN) 
:¿PRINT LASBL$(DRN) 

320 EVERY 30,1 GOSUB 770 

330 NAVEX(1)=20: INICX(1)=20:NAVEX(2)=1:1 
NICX(2)=1 :NAVEX(3)=20: INICX(3)=20:NAVEX ( 
4)=38: INICX(4)=38 

340 NAVEY(1)=1: INICY(1)=1:NAVEY(2)=13: IN 
ICY (2)=13:NAVEY (3)=23: INICY(3)=23:NAVEY ( 
4)=13: INICY(4)=13 

350 IMPAC(1)=30: IMPAC(2)=30: IMPAC(3)=36: 
IMPAC(4)=36 


Bucle principal del programa 


360 : 

370 FOR SP=1 TO 4 

380 IF INKEY(35)>-1 THEN LOCATE LASERX(D 
RN))LASERVi¿DRN):PEN O:PAPER 1:PRINT LAS$ 
(DRN):DRN=(DRN MOD 4)+1:LOCATE LASERX(DR 
N),LASERY(DRN):PRINT LASBL$(DRN) 

390 GOSUB 440 

400 IF INKEY(47)>-1 THEN GOSUB 540 

410 NEXT 

420 GOTO 370 


Borra naves 


430 : 

440 IF EXISTE(SP)=0 THEN RETURN 

450 PAPER 1:PEN 1:LOCATE NAVEX(SP),NAVEY 
(SP) 

460 PRINT USING"2";BL$ 

470 NAVEX(SP )=NAVEX (SP )+VELX(SP) :NAVEY (S 
P)=NAVEY (SP )+VELY (SP) 


Movimientos de las naves 


480 : 
490 PEN 2:LOCATE NAVEX(SP) ',NAVEY (SP) 
500 PRINT USING"2";NAVES 


O 


O 


O. QQ 0 


510 IF NAVEX(SP )+NAVEY (SP )=IMPAC(SP)THEN 
850 
520 RETURN 


Fuego del laser 


530 : 

540 PUNT=PUNT-25:GOSUB 810:GOLPE=0: IF DR 
N=1 OR DRN=3 THEN 590 

550 FINY=LSY(DRN) 

560 IF EXISTE(DRN)=0 THEN FINX=(DRN—2)%*3 
O4+LSX(DRN):GOTO £20 

570 GOLPE=1:FINX=16*NAVEX(DRN)-16 

580 GOTO 620 

590 FINX=LSX(DRN) 

600 IF EXISTE(DRN)=0 THEN FINY=-(DRN-3)+* 
140+LSY(DRN):GOTO 620 

610 GOLPE=1 :FINY=416-16*NAVEY(DRN) 

620 MOVE LSX(DRN) ,LSY(DRN) 

£30 DRAW FINX,FINY,3 

640 SOUND 1,100,55,15 

£50 DRAW LSX(DRN)'LSY(DRN))» 1 

660 IF GOLPE=1 THEN GOSUB 690 

670 RETURN 


Acierto objetivo e incrementa marcador 


680 : 

690 PUNT=PUNT+S5O:GOSUB B10:LOCATE NAVEX ( 
DRN) ,NAVEY(DRN) 

700 PEN 3:PRINT USING"2";EXPLS$ 

710 SOUND 1,0,25,15,1,1,15 

720 LOCATE NAVEX(DRN) ,NAVEY(DRN) 

730 PEN 1:PRINT USING"2";BL$ 


.740 EXISTE(DRN)=0 


750 RETURN 


Nueva nave 


760 : 
770 Ti=(T1 MOD 4)+1:1F EXISTE(T1)=1 THEN 


O 


O 
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RETURN 
780 NAVEX(T1)=INICX(T1):NAVEY(T1)=INICY( 
T1) 
790 EXISTE(T1)=1:RETURN 


Actualizar marcador 


800 : 

810 LOCATE 3,25:PEN 1:PAPER O 

820 PRINT", PUNTUACION:,,";PUNT:PAPER 1 
830 RETURN 


Fin del juego 


840 : 
850 LOCATE NAVEX(SP),NAVEY(SP):PRINT USI 
NG"a";EXPL$:LOCATE 20,13:PRINT USING"2"; 
EXPL$:FOR I=1 TO 180 STEP 5 

860 INK 1, INT(RND(1)*26) 

870 SOUND 1,ABS(COS(I)+SIN(1)*100),15,15 
880 NEXT 

890 INK 1,23:CLS:PRINT"TULPUNTUACION_ES: 
a" ¡PUNT 

900 LOCATE 1,10: IF PUNT<10 THEN PRINT"MA 
L..."ELSE IF PUNT<100 THEN PRINT"OK...." 

ELSE IF PUNT<S0O THEN PRINT"BIEN!!! "ELSE 
PRINT",_ERES_UN_MAESTRO! ! 1“ 

910 LOCATE 6,20:PRINT"PULSAL_UNA_TECLA_PA 
RA_OTRO_ JUEGO" 

920 IF INKEY$=""THEN 930 ELSE 920 

930 IF INKEY$=""THEN 930 ELSE RUN 


Tablas de comprobación 
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10 = 1342 60 = 3081 110 = 
20 = 4308 70 = 2873 120 = 
30 = 2999 80 = 5225 130 = 
40 = 2592 90 = 52872 140 = 
50 = 4668 100 = 2584 150 = 


4444 
2804 
4458 
3946 
3922 


160 
170 
180 


190 = 


200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 


nono "34 4'"Q44'sn/n un 14-04 4-04 841 


430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
£00 
510 
620 
£30 
640 
650 
660 
670 
£80 
690 


vo4 


"on 


700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
e20 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 


TOTAL 


l 


1242 
657 
2200 
1133 
1310 
201 
O 
3370 
3995 
1418 
O 
684 
1916 
201 
O 
6016 
1286 
2508 
176 
2476 
8183 
2734 
1557 
1574 


230739 
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Caseta de tiro 8 


JUEGO 
DE TIRO AL BLANCO 


Mantente firme y haz un intento. Sólo por 100 pesetas consigues 5 tiros (y 
obtendrás 5 tiros gratis). 


Puntuaciones: 
Patos delanteros........... 20 puntos 
Patos de enmedio ......... 50 puntos 
Pájato Lo. 100 puntos 


Utiliza la barra espaciadora para disparar a los objetivos volantes. 


SUGERENCIAS DE PROGRAMACION 


La velocidad de los pájaros se puede alterar en las líneas 1000-1080. O intenta 
poner una fila de pájaros extra con diferentes valores para añadir más variedad. 


Variables del programa 
COL(5) Columnas necesarias para un acierto. 


TOC$ Cadena de pájaro tocado. 
SUMA Cantidad a añadir a la cuenta del jugador. 
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BLS$ Cadena para borrar pájaros. 


PAJAROS(5,2) Cadena de cada pájaro. 
PAJAROX(5) PAJAROY(5) Coordenadas de los pájaros. 
FASE(5) Fase (1-2) de cada pájaro. 
FALLOS Cadena de un fallo. 

CONTJ Cuenta del jugador. 

VEL(S) Velocidades de los pájaros. 

BD Número de pájaros. 

NS Número de tiros que restan. 
TOC ¿Qué pájaro ha sido derribado? 
1,J,T1 Temporales. 


Estructura del programa 


Líneas Función] Actividad 


10-390  Inicializar variables 

400-520 Crea pantalla 

530-600 Bucle principal 

610-710 Movimientos de los pájaros 
720-820 Disparo del rifle 

830-870 Actualizar cuenta 

880-920 Alterna las fases 

930-970 ¿Más disparos? 

980-1020 Fin del juego 


Inicializar variables 


| 
| 
l 
| 
| 
10 MODE 1: INK 0,13: INK 1,O:sINK 2,6: INK 3 |! 
1 l 
20 SYMBOL AFTER 220:SYMBOL 220,128,64,96 | 
,56,28,13,7,3:SYMBOL 221,1,2,0,0,0,0,0+0  ! 
30 SYMBOL 222,1,2,6,28,56,176,224,192:5Y 1 y 
MBOL 223,128,64,0,0,0,0,0,0 
40 SYMBOL 224,0,0,0,0,0,1,7,15: SYMBOL 22 1 
5,25,50,32,32,32,0,0,0 
50 SYMBOL 226,0,0,0,0,0,128,224,240:SYMB | 
OL 227,152,76,4,4,4,0,0,0 
£0 SYMBOL 228,0,0,0,0,3,14,24,12:SYMBOL | 
229,6,115,255,63,7,0,0,0 i 
70 SYMBOL 230,0,0+0,0,252,32,64,32:SYMBO | 
L e31,248,259295+2854,252,)248,0,0 | 


' 
| 
i 
| 
' 
O 
| 
| 
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O 


O 


O 


80 SYMBOL 232,0,)0,0,0+1,115,2559+63:SYMBO 
L 233,3,7,7,)3,)0)0,0,0 

90 SYMBOL 234,0,0,0,0,248,254,255,255:S5Y 
MBOL 235,252,248,248,)248,252,)62,15,0 

100 SYMBOL 236,050,0,0,63,4,2+4:SYMBOL E 
37)63,255,)e55+)127)63,31,050 

110 SYMBOL 238,0,0,0,0,192,112,24,48:SYM 
BOL 239,224,206,255,e858,)224,0)0,0 

120 SYMBOL 240,0,0,0,05,+31,127,255)2099:5Y 
MBOL 2415,63,31,31,31,63,124,240,0 

130 SYMBOL 242,)0,0,0,0,128,206,255)202:5 
YMBOL 243,192,224,224)19210,)0,)0,0 

140 SYMBOL 244,130,200,96,49,29+45,)39,75 
¿SYMBOL 245,19,5)66,4,)65,)144,45,34 

150 SYMBOL 246,1,)35,»6,140,216,177,224,20 
1:SYMBOL 247,196,144,66,32,4,18,128»1 
1650 SYMBOL 248,796,32,32,)32,32,32,32,)32:5 
YMBOL 2495,32,32,)48,48,48,48,112,56:SYMBO 
L 250,48,56,56,56,160,+60,60,60 

170 SYMBOL 251,255,259,899)2283,207)19551 
29,80 

180 TOC$=CHR$ (244 )+CHRs$ (246)+CHR$(10)+S5T 
RING$ (2,8) +CHR$ (245 ) +CHR$ (247) 

190 BL$=CHR$ (32) +CHR$ (32) +CHR$(10)+STRIN 
G+$ (2,8) +CHR$ (32) +CHR$ (32) 

200 PAJARO$ (5,1) =CHR$ (220 ) +CHR$ (222 ) +CHR 
$(10)+STRING$(2,8)+CHRs (221 ) +CHR$ (223) 
210 PAJAROS (5,2) =CHR$ (224) +CHR$ (226) +CHR 
$(10)+STRING$(2,8)+CHR$ (225)+CHR$ (227) 
220 PAJAROS (4,1 )=CHR$ (228 ) +CHR$ (230 ) +CHR 
$(10)+STRING$ (2,8)+CHRs$ (229)+CHR$(231) 
230 PAJAROS (4,2) =CHR$ (232 ) +CHR$ (234) +CHR 
$(10)+STRING$(2,8)+CHR$ (233)+CHR$(235) 
240 PAJAROS$(3,1)=PAJARO$(45,1) 

250 PAJAROS (3,2) =PAJAROS (4,2) 

260 PAJAROS (2,1 )=CHR$ (236) +CHR$ (238 ) +CHR 
$(10)+STRING$ (2,8) +CHR$ (237) +CHR$ (239) 
270 PAJAROS (2,2) =CHR$ (240) +CHR$ (242 ) +CHR 
$(10)+STRING$ (2,8)+CHRs (241 ) +CHR$(243) 
280 PAJARO$(1,1)=PAJAROS$ (25,1) 

290 PAJAROS (1,2)=PAJAROS$ (2,2) 

300 FALLO$=CHR$(251):COL(1)=19: COL (2)=19 
:¿COL(3)=19:COL(4)=19: COL (5)=20 

310 FOR I=1 TO S:FASE(I)=INT(RND(1)x*2)+1 
¿NEXT 


O 


O 


O 
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O 


O 


320 PAJAROX (5)=17:PAJAROY (5)=3 
330 PAJAROX (4)=10:PAJAROY (4)="7 
340 PAJAROX (3)=30: PAJAROY (3)=7 
350 PAJAROX(2)=15:PAJAROY (2)=11 
360 PAJAROX (1)=25:PAJAROY (1)=11 
370 VEL (4)=-2:VEL(3)=-2 

380 VEL (2)=1:VEL(1)=1 


Crea pantalla 


390 : 

400 PAPER O:CLS:BORDER 1 

410 PEN 3:FOR I=1 TO 40:FOR J=1 TO 2:LOC 

ATE I,J:PRINT CHR$(143):NEXT:NEXT 

420 FOR I=1 TO 11:FOR J=15 TO e2e:LOCATE 
I,J:PRINT CHR$(206):NEXT:NEXT 

430 FOR I=30 TO 40:FOR J=15 TO 22:LOCATE 
I,J:PRINT CHR$(206):NEXT:NEXT 

440 FOR I=1 TO 40:LOCATE 1,23:PRINT CHR$ 
(206): NEXT 

450 FOR I=13 TO 28:LOCATE 1,20:PRINT CHR 

$(208) : NEXT 

460 FOR I=13 TO 28:LOCATE 1,22:PRINT CHR 

$(210):NEXT 

470 LOCATE 12,20:PRINT CHR$(209):LOCATE 
12,21:PRINT CHR$(209):LOCATE 12,22:PRINT 
CHRs$ (209) 

480 LOCATE 29,20:PRINT CHR$(211):LOCATE 

29)21:PRINT CHR$(211):LOCATE 29,22: PRINT 
CHRs$(211) 

490 LOCATE 20,19:PEN 1:PRINT CHR$(248):L 

OCATE 20,20:PRINT CHR$(249):LOCATE 20,281 
:<PRINT CHR$(250) 

500 EVERY 15,1 GOSUB 880 

510 NS=5:CONTJ=0:GOSUB 830 


Bucle principal del programa 


520 : 

530 FOR BD=1 TO 5 

540 GOSUB 610 

550 IF INKEY(47)>-1 AND TOC=0 THEN GOSUB 


O 


O” O O A Y 


O 0 O 0 0 


Or O 0: -Q 


720:G0SUB 830 
560 IF NS=0 THEN 930 
570 NEXT: TOC=0 
580 LOCATE 20,2:PEN 3:PRINT CHR$(143) 
590 GOTO 530 


Movimientos de los pájaros 


600 : 

610 LOCATE PAJAROX (BD) ,PAJAROY(BD) 

620 PRINT USING"2";BL+$ 

630 PAJAROX(BD)=PAJAROX(BD)+VEL (BD) 

640 IF RND(1)<0.4 THEN PAJAROX(BD)=PAJAR 
OX(BD)>+VEL (BD) 

£650 IF PAJAROX(BD)<2e THEN PAJAROX(BD)=37 
:¿CONTIJ=CONTJ-10:GOSUB 830 

660 IF PAJAROX(BD)>37 THEN PAJAROX(BD)=2e 
:CONTJ=CONTJ-10:GOSUB 830 

670 IF BD=S THEN PEN 2 ELSE PEN 1 

680 LOCATE PAJAROX(BD) ,PAJAROY (BD) 

£90 PRINT USING"2";PAJAROS$(BD,FASE(BD)) 
700 RETURN 


Disparo del rifle 


710 : 

720 CONTI=CONTJ-10:NS=NS-1:SOUND 1,0,5»1 
5,1131: TOC=0:FOR I=1 TO S 

730 IF PAJAROX(1)=COL(1)THEN TOC=I1 

740 NEXT 

750 IF TOC=0 THEN LOCATE 20,2:PEN 3:PRIN 
T CHR$(251):RETURN 

760 LOCATE PAJAROX(TOC) PAJAROY(TOC) 

770 PEN 2:PRINT USING"2";TOC$ 

780 FOR J=1 TO 3:FOR I=1i TO 20 STEP 2:50 
UND 1,1,5,15:NEXT:NEXT 

790 IF TOC<3 THEN SUMA=20 ELSE IF TOC<S5 

THEN SUMA=50 ELSE SUMA=100 

800 CONTIJ=CONTI+SUMA 

810 RETURN 


O 


O 


O 


O. DQO 7 


Or -Q 


O 


69 


70 


DD O O 


O” SO ¿0-0 0 


O 


O 


Actualizar cuenta 


e20 : 

830 LOCATE 1,25:PRINT SPACES$(38):PEN 3:L 
OCATE 1,25: 1F CONTJ<O THEN PRINT"DEBES,,." 
¡ELSE PRINT"TIENES.,"; 

840 PRINT USING"+HHHHH"5ABS(CONTI) 

850 LOCATE 25,25:PRINT"N.DISPAROS:.,,"3NS 
860 RETURN 


Alterna las fases 


870 : 

880 FOR Ti=1 TO 5:IF FASE(T1)=1 THEN FAS 
E(T1)=2 ELSE FASE(T1)=1 

890 NEXT 

900 IF RND(1)<0.5 THEN VEL(5)=-1 ELSE VE 
L(5)=1 

910 RETURN 


¿Más disparos? 


920 : 

930 LOCATE 1,2e5:PRINT SPACE$(38):PEN 3:L 
OCATE 1,25 

940 PRINT"OTROS._5.,TIROS?,,(S/N)" 

950 IF INKEY(60)>-1 THEN 960 ELSE IF INK 
EY(46)>-1 THEN 980 ELSE 950 

960 NS=S5:GOSUB 830:GOTO 530 


Fin del juego 


970 : 

980 CLS:LOCATE 16,1:PRINT"FIN,DEL, JUEGO" 
990 LOCATE 15,10 

1000 IF CONTJ<-1 THEN PRINT"TODOS,SELRIE 


O O € Q-:0 


Tablas de comprobación 


4ou 44. 44. 4.4. non 


A A 


1325 
2879 
2792 
2102 
2733 
2415 
3824 
2345 
4320 
2810 
3506 
3246 
3639 
3025 
3607 
4269 
2634 
5173 
4103 
5451 
5468 
5482 
5499 
1706 
1708 
3512 
35929 
1702 
1704 
35077 
3406 
2087 
2082 
2132 
2098 


360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


il 


A O 


Uno 


710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
88go 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 


TOTAL 


NL DELTI"ELSE PRINT"FELICIDADES, POR,,TUS,_E 
XITOS" 

1010 LOCATE 5,16:PRINT"DINERO,:."3:PRINT 
USING"$+H$+4+" ¡CONTI 
1020 IF INKEYs$=""THEN END ELSE 1020 


A A A A II SI CI A 


uo4/n nn 4 


10) 
4947 
3150 
176 
2700 
2498 
1222 
3013 
4927 
1980 
201 
O 
4469 
1621 
1/93 
201 
10) 
4826 
176 
3193 
201 
10) 
1375 
1568 
3625 
1026 
10) 
1576 
263 
5333 
2481 
1614 


249802 
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Invasión de 
asteroides 


Clasificación: 


JUEGO 
DE TIEMPO LIMITADO 


Tienes treinta segundos para salvar a la raza humana, destruyendo a los 
invasores. Cuentas con un laser de plasma, que puedes disparar después de centrar 
la mirilla sobre tu enemigo. 

Utiliza “A” para mover hacia arriba, “Z” para mover hacia abajo, “coma” para 
mover a la izquierda, “punto” para mover a la derecha y espacio para disparar. 


SUGERENCIAS DE PROGRAMACION 


Este juego puede cambiarse en muchos aspectos para hacerlo más fácil, más 
difícil o simplemente más complejo. Intenta una combinación de lo siguiente: Pon 
más invasores en la pantalla, cambia el tiempo límite, altera el curso de la velocidad 
del invasor y, finalmente, cambia el marcador. 


Variables del programa 
METYS(4) Cadena de los meteoros. 
MET(3) Fase de cada meteoro. 


X(3) Y(3) Columnas y filas del meteoro. 
PUNT Puntuación del jugador. 
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A,B 
QW 
Z 


Columna, fila de la cruz de tiro. 
Puntos equivalentes a A y B. 
Meteoro en acción. 


ENERGIA Energía. 
ALX,ALY Columna, fila del invasor. 


Estructura del programa 


Lineas 


10 


Función] Actividad 


Llamada a la rutina de inicialización 


30-190 Bucle principal 

200-320 Rutina de disparo 

330-390 Imprime bloque del meteoro 
400-490 Fin del juego 

500-820  Inicializar variables 

830-900  Inicializar pantalla 


O. COL O. O =Q 


| 
l 
l 
I 
| 
l 
| 
l 
l 
| 
| 
| 
Ú 
' 
| 
| 
| 
| 
| 
l 
| 
| 
| 
| 
I 
| 
I 
' 
I 
| 
1 
| 
I 
| 
! 
I 
l 
| 
| 
| 
I 
l 
I 
| 
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Llamada a la rutina de inicialización y bucle principal 


10 GOSUB 500 


Rutina de disparo 


20 : 

30 FOR T=1 TO 3:PEN T 

40 2=T:GOSUB 340 

50 MET(T)=MET(T)+1:1F MET(T)=5 THEN MET( 
T)=1:X(T)=CINT(RND(1)*30+5) : Y(T)=CINTC(URN 
D(1)*10+5) :ENERGIA=ENERGIA-1:LOCATE 305,2 
4:PRINT ENERGIA: IF ENERGIA=0 THEN 400 

60 NEXT T 

70 LOCATE ALX,5ALY:PRINT",," 

80 ALX=ALX+1:1F ALX>38 THEN ALX=3:ALY=CI 
NT(RND(1)+*10+5) 

90 LOCATE ALX,ALY:PRINT CHRs (224) 

100 LOCATE A,)B:PRINT",," 

110 A=A+(1NKEY (39)>-1)-(INKEY (31)>-1):B= 
B+( INKEY (69)>-1)-(INKEY(71)>-1) 


O” Qe O Y 


DO Oe 7 Y 


O 


O 


120 IF A>38 THEN A=3 

130 IF A<X3 THEN A=38 

140 IF B>18 THEN B=3 

150 IF B<3 THEN B=18 

150 PEN 2:LOCATE A,B:PRINT CHR$(252) 
170 IF INKEY(47)>-1 THEN GOSUB 200 
180 GOTO 30 


Imprime bloque del meteoro 


190 : 

200 Q=A*165-8:W=(25-B)+*16+8 

210 MOVE 5,98:DRAW Q,W,3 

220 MOVE 634,98:DRAW Q,W,3 

230 IF INKEY(67)>-1 THEN FOR T=1 TO 1E+1 
O:NEXT T 

240 FOR N=1 TO 100 STEP 15:SOUND 129,N,1 
Os,15:NEXT N 

250 IF A=ALX AND B=ALY THEN SOUND 129,10 
0,100,15,1,1,1:ALX=3:ALY=CINT(RND(1)*10+ 
5): PUNT=PUNT+1000:LOCATE 10,24:PRINT PUN 
T:ENERGIA=ENERGIA+10:LOCATE 30,24:PRINT 
ENERGIA 

260 FOR N=1 TO 3 

270 IF(A=X(N)OR A-1=X(N))AND(B=Y(N)OR B- 
1=Y(N))THEN PUNT=PUNT+CINT(RND(1)*5000) : 
ENERGIA=ENERGIA+20:LOCATE 10,24:PRINT PU 
NT:LOCATE 30,24:PRINT ENERGIA ELSE 290 
OSUB 340 

290 NEXT N 

300 MOVE 5,98:DRAW Q,W,O 
310 MOVE 634,98:DRAW Q,W 
320 RETURN 


yO 


Fin del juego 


330 : 

340 LOCATE X(2),Y(2) 

350 PRINT: LEFT$(MET$(MET (2)),2) 
360 LOCATE X(2),Y(2Z)+1 


O”. O: Q 


O U € O Q 


O 


O 
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76 


O. E. O 24 "0 0: 0: 


O 


O 


370 PRINT RIGHT$(METS(MET(2)),2) 
380 RETURN 


Inicializar variables 


390 : 

400 FOR T=1 TO 20:FOR N=200 TO O STEP-20 
¿SOUND 129,T,10,15:NEXT N:NEXT T 

410 FOR T=1 TO 26:LOCATE 1,1:PRINT CHR$( 
11): NEXT T 

420 MODE O:PEN 4: INK 45,0 

430 LOCATE 3,2:PRINT"FIN,_DEL,,JUEGO" 

440 FOR T=1 TO 26: INK 4,T:SOUND 129,Tx*10 
,10,15:SOUND 130,Tx*5,10,15:SOUND 132,Tx*1 
5,)10,15:NEXT T 

450 PEN 7:LOCATE 1,8:PRINT"PUNTUACION:>,," 
¡ PUNT 

460 LOCATE 1,14:PRINT"PULSA,,”R 
uDTRO JUEGO." 

470 IF INKEY$="R"OR INKEY$="r"THEN RUN E 
LSE 470 

480 STOP 


Inicializar pantalla 


490 : 

500 SYMBOL AFTER 224:SYMBOL 224,192,965,1 
24,115,124,96,192,0:SYMBOL 240,0,0,0,0,0 
,»0,1,3 


510 SYMBOL 241,0,0,0,0,+0,0,192,224 
520 SYMBOL 242,3,1)0,0,0,0,0,0 

530 SYMBOL 243,224,128,0,0,50,0,0,0 
540 SYMBOL 244,0,0,0,0,315,3,145,31 

550 SYMBOL 245,0,0,0,0,192,32,240,240 


560 SYMBOL 246,15,4,7,)1,0,0,05,0 

570 SYMBOL 247,224,192,128,128,0,0,0,0 
580 SYMBOL 248,0,12,25,99,239,255,255,e5 
5 

590 SYMBOL 249,0,224,112,240,248,252,158 
1239 

£00 SYMBOL 250,255,127,)55+23,27,13,6,3 


go “Ul “O O. “Y 
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SYMBOL 251,238,252,176,240,224,224,1 


SYMBOL 252,36,24,129,+66,66,129,24,36 
BORDER O 

PAPER O: INK 05,0 

PEN 1: INK 1,18 

INK 2,324: INK 35,6 

MODE 1 

DIM METS$(4) 

METS$ (1 ) =CHR$ (240) +CHR$ (241 )+CHR$ (242 


) +CHR$ (243) 


700 


MET$ (2) =CHR$ (244 ) +CHR$ (245) +CHR$ (246 


) +CHR$ (247) 


710 


MET $ (3) =CHR$ (248 ) +CHR$ (249) +CHR$ (250 


) +CHR$ (251) 


720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 


METS$(4)=" uuu” 

DIM MET (3) 
MET(1)=1:MET(2)=2:MET(3)=3 
DIM X(3),Y(3) 

FOR T=1 TO 3 
X(T)=CINT(RND(1)*30+5) 
Y(T)=CINT(RND(1)*10+5) 
NEXT T 

PUNT=0 

A=20:B=10 
2=3:ENERGIA=40:ALX=3:ALY=CINT(RND(1) 


*10+5) 


830 
)) 

840 
8)) 
850 
860 
870 
880 
890 


LOCATE 1,1:PRINT STRING$(40,CHRs+ (210 
LOCATE 1,20:PRINT STRING$ (40, CHR$ (20 


FOR T=2 TO 19 

LOCATE 13T:PRINT CHR$(211) 

LOCATE 40,T:PRINT CHR$(209) 

NEXT T 

LOCATE 1,24:PRINT"MARCADOR numumudnuuu 


ooENERGI A cui tuuu 


900 


RETURN 
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Tablas de comprobación 


78 


Lon un 4 4. 4.4. 44 on 4 42.1 


un 


434 
O 
1303 
970 
12977 
401 
1278 
4847 
1734 
950 
6293 
1365 
1368 
1347 
1350 
16438 
1701 
220 
O 
2825 
1064 
1195 
3072 
2443 
11709 
884 
12752 
2262 
395 
1061 
1192 


320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 


un uo 


nou 


uo 


630 
640 
650 
660 
670 
£80 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 


von uo" 


"on 


O A 


870 = 


880 
890 
900 


TOTAL 


144 
435 
467 
515 
188 
607 
3850 
3867 
3884 
895 
616 
2171 
846 
890 
2098 
2079 
401 
721 
972 
3982 
1577 
1605 
918 
1220 
1268 
401 
2449 
201 


170714 


Guerras 
espaciales 


Clasificación: 


JUEGO 
DE TIRO AL BLANCO 


Destruye a los invasores tan pronto como aparezcan en tu campo de visión, 
alinéalos en tu diana antes de disparar. Tu munición es limitada, igual que el 
número de invasores. 

Utiliza “A” para mover hacia arriba, “Z” para mover hacia abajo, “coma” para 
la izquierda, “punto” para la derecha y “espacio” para disparar. 


SUGERENCIAS DE PROGRAMACION 


Para hacer más difícil el juego, sitúa algunos obstáculos en la pantalla y altera 
los movimientos de los invasores. 


Variables del programa 


INVAX, INVAY Coordenadas de los invasores. 

PUNT Puntuación del jugador. 

DISP Número de disparos 'que restan. 

ESCAPE Número de veces que un invasor escapa. 

INVAS Caracteres que representan a los invasores. 

ANTX, ANTY Guarda las coordenadas anteriores de los invasores. 
XDIR, YDIR Modificaciones a las coordenadas de los invasores. 
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Estructura del programa 


Líneas Función] Actividad 


10-150  Inicialización 

160-310 Bucle principal 
320-420 Rutina de disparo 
430-530 Invasor derribado 
540-610 Se escapa el invasor 
620-730 Fin del juego 

740 Rutina de interrupción 
750-880 Instrucciones 


Inicializar el juego 


] 

| 

] 

| 

| 

' 

] 

] 

10 GOSUB 760 
20 SPEED KEY 1,1:0N BREAK GOSUB 740 | 
30 INK OO: INK 1,24: INK 2,20: INK 3,6:PAP 1 
ER O:BORDER O:MODE 1 
40 SYMBOL AFTER 238:SYMBOL 238,0,16,05+0, | 
0,132,0,0: SYMBOL 239,32)0,)0,0,8,0,0,0:5Y | 
MBOL 240,16,0,0,130,0,0,16,0 | 
SO SYMBOL 241,0,0,4,128,0,0,0,0:SYMBOL 2 y 
42,136,0,0,4,64,0,0,128:SYMBOL 243,129,0 | 
(010129500164 
60 SYMBOL 244,192,195,199,255,255,199,19 | 
5,192:SYMBOL 245,3,195,227,255,255,227,1 1 
| 

| 

| 

] 

| 

] 

] 

| 

t 

] 

] 

] 

| 

] 

1] 

| 

] 

] 

] 

] 

| 
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] 
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95,3 

70 SYMBOL 246,33,689,37,40,157,34,34,17:S 
YMBOL 247,161,178,65,41,159,138,113,81:S 
YMBOL 248,2,128,144,0,130,16,64,144:SYMB 
OL 249,49,0,144,1,1,58,2,)136:SYMBOL 250, 
194,36,1,145,0,132,128,66 

80 SYMBOL 251,1,69,17,64,152,1,129,100 
90 INVAX=30: INVAY=10: PUNT=0 :¿ESCAPE=0:DIS 
P=100 

100 PEN 1:LOCATE 1,1:PRINT STRING$(40,CH 
R$(181)):LOCATE 1,20:PRINT STRINGS$(40,CH 
R$(181)):FOR T=2 TO 19:LOCATE 1,T:PRINT 
CHRs$(181):LOCATE 40,T:PRINT CHR$(181):NE 
XT T 

110 PEN 3:LOCATE 5,22: PRINT"PUNTUACION 


O O -O 0 70 0 
O” 10 20-20) 


O 
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O 


O “O: De: O DE O 


O 


u""LOCATE 5,23:PRINT"ESCAPADOS." :LOCATE 
5)24:PRINT"MUNICION,.” 

120 INVA$=CHR$ (244) +CHR$ (245) 

130 E$(1)=CHR$ (246) +CHR$ (247) :E$(2)=CHR$ 
(250)+CHR$ (11 )+CHR$ (89 ) +CHR$ (248 ) +CHR$ (24 
9 )+CHR$(8)+CHR$(10)+CHR$ (251) 

140 E$(3)=CHR$ (8) +CHR$ (11 )+CHR$ (238 ) +CHR 
$ (239) +CHR$ (240) +CHR$(10)+STRING$(3,8)+0 
HRS (241 ) +CHR$ (242) +CHR$ (243) :E$(4)=",..1" 
+CHR$(10)+STRING$(3,8)+",.un"” 


Bucle principal del programa 


150 : 

160 LOCATE INVAX», INVAY 

170 PEN 2:PRINT INVAS$ 

180 MOVE 320,238:DRAW 320,2585,1:MOVE 321 
1238:DRAW 321,258,1:MOVE 310,248:DRAW 33 

0,2485,1 

190 ANTX=INVAX : ANTY=INVAY 

200 XDIR=(INKEY(31)>-1)-(INKEY(39)>-1) 

210 INVAX=INVAX+XDIR 

220 YDIR=(INKEY (71)>-1)-C(INKEY(69)>-1) 

230 INVAY=INVAY+YDIR 

240 INVAX=INVAX+(((INVAX<21)-(INVAX>20)) 
/4) 

250 INVAY=INVAY+(((INVAY<12)-(INVAY>10)) 

/4) 

260 INVAX=INVAX+(CINT(RND(1))/2): INVAY=1I 

NVAY+(CINT(RND(1))/2) 

270 IF INVAX<2 OR INVAX>37 OR INVAY<2 OR 
INVAY>19 THEN GOSUB 540 

280 IF INKEY(47)>-1 THEN GOSUB 320 

290 LOCATE ANTX),ANTY:PRINT"..," 

300 GOTO 160 


Rutina de disparo 


310 : 
320 PLOT 8,96:DRAW 320,248,2:PLOT 632,96 
:DRAW 320,248,828 


O 


Oc U- DD O: O O - 0 


O. “O 00 


O 


oO O O 


O  U- e 00 7 0 ELO 


O 


330 SOUND 1,0,30,15,1,1»>1 

340 DISP=DISP-1 

350 LOCATE 16,24 

360 PEN 3:PRINT DISP3".uu" 

370 IF DISP=0 THEN 620 

380 PEN O 

390 PLOT 8,96:DRAW 320,248,0 

400 PLOT 632,796:DRAW 320,248,0 

410 IF CINT(ANTX)=20 AND CINT(ANTY)=10 T 
HEN 430 ELSE RETURN 


Invasor derribado 


420 : 

430 MOVE 320,238:DRAW 320,258,0:MOVE 321 
)—238:DRAW 321,258,0:MOVE 310,248:DRAW 33 

0,248,0:ENV 2)7)-1,10,18»-1 ,40 

440 SOUND 1,200,200,15,2,28,2 

450 FOR Ti=1 TO 3:LOCATE 20,10:PEN 2: INK 
2)26:PRINT Es(T1):FOR Te=1 TO 300:NEXT: 

LOCATE 19,9:PRINT E$(4):NEXT 

460 INK 2,20 

470 PUNT=PUNT+1 

480 LOCATE 16,22 

490 PEN 3:PRINT PUNT 

500 INVAY=CINT(RND(1)*10)+5 

510 INVAY=CINT(RND(1)*10)+5 

520 RETURN 


Se escapa el invasor 


530 : 

540 ESCAPE=ESCAPE+1 

550 ¡SOUND 2,100,25,1»1»1 

560 INVAX=CINT(RND(1)*20)+10 
570 INVAY=CINT(RND(1)*10)+5 
580 LOCATE 16,23 

590 PEN 3:PRINT ESCAPE 

600 IF ESCAPE<10 THEN RETURN 


Fin del juego 


610 : 
620 MODE O 
630 LOCATE 5,11 
640 PRINT"FIN,,DEL,,JUEGO" 
£50 PRINT"PUNTUACION...";PUNT 
660 FOR T=1 TO 10 
FOR N=1000 TO O STEP-100 
SOUND 1,N,3,155,05,05,0 
NEXT N 
NEXT T 
FOR T=26 TO O STEP-1: INK 1,T:FOR N=1 
SO:NEXT N:NEXT T:CLS:INK 1,24 
A$=INKEY$: IF A$=""THEN 720 ELSE RUN 


Rutina de interrupción 


730 : 
740 SPEED KEY 35,1:STOP 


Instrucciones 


MODE O 
LOCATE 15,5 
PRINT",,"A” cuuummu . ARRIBA" 
PRINT".1?2?*  uuuuuuw ABAJO" 
PRINT".L?>” ius o 12." 
PRINT".0? +? cun . DOHA" 
PRINT",,?ESPACIO”, ..FUEGO" 
INK 3,8,e2 
840 PEN 3 
850 PRINT 
860 PRINT 
870 PRINT"GUERRAS._ ESPACIALES" 
880 A$=INKEY$:1F As$=""THEN 880 ELSE PEN 
1:MODE 2:RETURN 
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Tablas de comprobación 


CT A A O O O A A O 


439 
1042 
1552 
3822 
3687 
5078 
8163 
1546 
3992 
7083 
4158 
2133 
8170 
10527 
10) 
1308 
892 
3090 
24559 
2906 
1997 
2977 
2000 
4011 
3996 
5301 
4913 
1566 
1482 
350 


310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 


"on 


440 = 


450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 


610 = 


620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 


Uno" 4. 4... 404 


750 = 


760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
88go 


TOTAL 


"nou on un o'op 


O 
187 
268 
1135 
1698 
908 
1727 
801 
395 
401 
4011 
2251 
O 
695 
O 
187 
247 
1137 
1078 
973 
957 
1337 
336 
204 
191 
191 
1558 
2548 


1645203 


Batalla de 
tanques 


Clasificación: 


JUEGO DE SIMULACION 


Se ha planeado una emboscada contra un escuadrón de tanques enemigos. Tu 
tanque está situado en un acantilado y disparas al enemigo situado a la derecha, 
usando las teclas “0” a “9” pra indicar el ángulo de la bomba y la velocidad de 
ésta (variable entre 0-9). A continuación pulsa la barra espaciadora para disparar, 
o dispara sin teclear ningún número para enviar una bengala. 

El juego termina cuando un tanque enemigo alcanza la parte inferior del 
acantilado. Tú consigues 50 puntos por cada blanco. 

Utiliza las teclas “0” a “9” para indicar un ángulo entre 00 y 89 grados, y una 
velocidad de la bala entre O y 9. Dispara pulsando la barra espaciadora. 


SUGERENCIAS DE PROGRAMACION 


Para hacer más difícil y excitante el juego pueden añadirse algunos tanques 
más, o se puede alterar la velocidad del tanque usando la variable TVEL. 


Variables del programa 


EXPL$(6,3) Cadenas con las 6 fases de la explosión, cada una con 3 líneas. 
LTS Ultimo tanque movido. 
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TVEL(4) 
TANQ$ 

TCOL 

TK 

TANQX, TANQY(4) 
PUNT 
TOCADOS 
FUEGO 
ANGULO 

BVEL 

T 

XIV, YIV 
BOMBX,BOMBY 
NRONDA 

LJ 

CU 

MSJS(9) 

MN 

EXISTE(4) 


Velocidad de los tanques. 

Cadena para imprimir los tanques. 

Color del tanque. 

Número del tanque 

Coordenadas de cada tanque. 

Puntuación del jugador. 

Número de tanques alcanzados por una bomba. 
¿Es una bengala o una bomba? 

Angulo de disparo. 

Velocidad de la bala. 

Parámetro de tiempo para la trayectoria de la bomba. 
Velocidad inicial en cada dirección. 
Coordenadas de las bombas. 

Número de tandas de tanques destruidos. 
Temporales. 

Carácter situado debajo de la bomba. 

Matriz de mensajes. 

Número del mensaje. 

¿Existe cada tanque? 


Estructura del programa 


Líneas Función] Actividad 

10-200  Inicializar el juego 
210-330 Nuevo intento 
340-520 Editor 

530-570 Bucle principal 
580-750 Mueve bomba 
760-890 Explosión 
900-1000  Mueve/imprime tanques 
1010-1060 Tanque alcanzado 
1070-1100 Imprime mensajes 
1110-1150 Fin del juego 


INK 3,24 


Inicializar el juego 


10 DEG:MODE 1: INK O,O: INK 1,15: INK 2,18: 


20 SYMBOL AFTER 232:SYMBOL 232,0,0,255,1 


,7131,127,0:SYMBOL 233,127,199,146,19951 
27,)0,0,0 

30 SYMBOL 234,05,64,248,248,248,252s2594,0 
¿SYMBOL 235,254,227,73,)227,25450)0,0 

40 SYMBOL 240,18,129,36326,76,16,1279,8:5 
YMBOL 241,128,0,69,32,2,0,+68,32:SYMBOL 2 
42)64,)0,165,128,9,0,185,64 

SO SYMBOL 243,0,0,64,8,2,332,+4>33: SYMBOL 

244,0,128,4,0,32)2164,9:SYMBOL 245,144,2 
»15,10166,05,+05177 

£60 SYMBOL 245,64,4,0,144,31,16,4)64:SYMBO 
L 247,)2,33,0,18,)8,128,0,16:SYMBOL 248,4, 
0,144,2164,0,851 

70 SYMBOL 249,0,0,63,63,63,63,127,0:SYMB 
OL 250,127,200,135,200,127,0,0,0:S5YMBOL 

251,1,7,)156,240,192,248,254,)0:SYMBOL 252 
1294,19,225,19,254,050,0 

80 SYMBOL 253,0,0,24560,560,24,05,0 

90 EXPL$(1,1)="":EXPL$(1,2)=",,"+CHR$(240 
)+,”":EXPL$(1,3)=""” 

100 EXPL$(2,1)=",,"+CHR$(241)+",,":EXPL$(2 
12) =CHR$ (242) +CHR$ (9) +CHR$ (244) :EXPL$(20, 
3)=",,"+CHR$(243)+",," 

110 EXPL$(3,1 )=CHR$ (245) +CHR$ (9) +CHR$ (24 
7) :EXPL$(3,2)="":EXPL$(3,3)=CHR+$ (246)+CH 
R$ (9) +CHR$ (248) 

120 EXPL$(4,1)="":EXPL$(4,2)=CHR$(9)+",," 
:EXPL$(4,3)="" 

130 EXPL$(5,1)=CHR$(9)+",,"2EXPL$(532)=",, 
"+CHR$(9)+",," :EXPL$(5,3)=CHR$(9)+",,” 

140 EXPL$(6,1)=",,"+CHR$(9)+",,":EXPL$(6,2 
)="":EXPL$(6,3)=EXPL$(6,1) 

150 TANQ$=CHR$ (232 ) +CHR$ (234) +CHR$(10)+S 
TRING$ (2,8) +CHR$ (233) +CHR$ (235) 

1560 MSJ$(1)="Listo,para,ndisparar":MSJ$(2 
)="Pulsa,una,tecla,numerica" 

170 MSJ$(3)="Pulsa,un, segundo.,numero":MS 
J$(4)="Fuerza(0-9)":MSJ$(5)="Preparado,p 
ara,disparar" 

180 MSJ$(6)="PULSALESPACIO, TONTO, !":MSJ 
$(7)=" uu.Fonuoliom.EnuobBioioDO! 1!" 

190 MSJ$(8)=",,BLELNLGLALLL_A,":MSJ$(9)="E 
LLENEMIGOL_ ESTA. SOBRE,_TU,POSICION!!"” 


O 


91 


92 


O” “O 5 “O 0- O O: O 


O 


O 


Nuevo intento 


200 : 

210 FOR I=1 TO 4: TVEL(1)=-INT(RND(1)x*2)- 
1: TANQX(1)=34:EXISTE(1I)=1: NEXT 

220 TANQY (1)=INT(RND(1)*5)+6: TANQY (2)=TA 
NQY (1)+3 

230 TANQY (3)=TANQY (2) +3: TANQY (4 )=TANQY (3 
)+3 

240 NRONDA=NRONDA+1 

250 PAPER O:BORDER O:CLS 

260 PEN 1:LOCATE 1,10:PRINT CHR$(249)+CH 
R$ (251 ) +CHR$(10)+STRING$ (2,8) +CHR$ (250)+ 
CHR+$ (252) 

270 FOR I=1 TO 6:FOR J=128 TO 20:LOCATE I 
»J:PRINT CHR$(143):NEXT:NEXT 

280 MOVE 0,78:DRAWR 640,0 

290 MOVE 0,226:DRAWR 30,0:DRAWR 105,-3 
300 PEN 2:LOCATE 3,22:PRINT"Angulo:,.":LO 
CATE 16,22:PRINT"Fuerza:,." 

310 LOCATE 29,22: PRINT"PUNTOS:,," 

320 LOCATE 35,282:PEN 2:PRINT PUNT 


Editor 


330 : 

340 MN=1 :GOSUB 1070 

350 Di$=INKEY$: IF Di$=""THEN GOSUB 900:G 
OTO 350 

360 IF Di$=",,"THEN FUEGO=0:MN=8:GOSUB 10 
70:GOTO 530 

370 IF D1$<"O0"OR D1$>"8"THEN MN=2 :GOSUB 
1070:GOTO 350 

380 MN=3:GOSUB 1070 

390 PEN 2:LOCATE 9,22:PRINT VAL(D1$) 

400 De$=INKEYS$: 1F Des$=""THEN GOSUB 900:6G 
OTO 400 

410 IF D2$<"0"O0R D2$>"9"THEN MN=2:GOSUB 
1070:GOTO 400 

420 ANGULO=10*VAL(D1$)+VAL(D2$) 


O 


O 


E. ¡E O O 20 


¡CES 


O: “O (O, O O) O >". O y 


O 


O 


430 PEN 2:LOCATE 11,22:PRINT USING"+*";VA 

L(D2$) 

440 MN=4:GOSUB 1070 

450 D1$=INKEYS$: IF Di$=""THEN GOSUB 900:G 

OTO 450 

460 IF Di$<"O0"OR D1$>"9"THEN MN=2:GOSUB 
1070:GOTO 450 

470 PEN 2:LOCATE 22,22:PRINT VAL(D1$); 
480 BVEL=VAL(D1$):MN=5:GOSUB 1070 

490 Di$=INKEYS$: IF Di$=""THEN GOSUB 900:6G 
OTO 490 

500 IF Di1$<>",,"THEN MN=6:GOSUB 1070:GOTO 
490 

510 MN=7:GOSUB 1070: FUEGO=1 


Bucle principal del programa 


520 : 

530 SOUND 1,0,10,11,15,15,15 

540 GOSUB 580 

550 GOSUB 900 

560 IF BOMBX=0 THEN 340 ELSE 540 


Mueve bomba 


570 : 

580 IF(BOMBX<>O)THEN 610 ELSE BOMBX=3:B0 
MBY=8:T=0:LOCATE 35,8:PEN 3:PRINT CHRs (25 
3): CU=32 

590 IF FUEGO=0 THEN ANGULO=45:BVEL=4 

600 XIV=BVEL*COS (ANGULO) /3: YIV=BVEL*SIN( 
ANGULO) /3 

610 PEN 1: IF(BOMBX<39)AND(BOMBY>O AND BO 
MBY<23) THEN LOCATE BOMBX ,BOMBY:PRINT CHR 
$ (CU) 

620 T=T+2 

630 IF(T=20)AND(FUEGO=0)THEN 760 

640 BOMBX=INT(3+T+*XIV) 

650 BOMBY=INT(8-T*YIV+0.049*T+*T) 

660 IF BOMBY<1i THEN RETURN 

670 IF BOMBY>19 THEN BOMBY=19: IF BOMBX>3 


Or. ¿1 0 


O 
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Or UD O e O MO 2 0 0 


O 


O 


4 THEN BOMBX=34:GOTO 760 ELSE 760 

680 IF BOMBX>34 THEN BOMBX=34: 1F BOMBY<2 
OR BOMBY>22e THEN BOMBX=0:RETURN ELSE GO 

SUB 760:RETURN 

690 IF TEST(BOMBX*165-8,400-BOMBY*1b6)=1 T 
HEN CU=143 ELSE CU=32 

700 TOCADOS=0:FOR TK=1 TO 4: 1F EXISTE(TK 
=0 THEN 720 ELSE T1=BOMBX-TANQX(TK):Te= 
BOMBY-TANQY (TK) 

710 IF(T1=0 OR Ti=1)AND(Te2=0 OR Te=1>THE 
N TOCADOS=TK 

720 NEXT 

730 IF HIT=0 THEN LOCATE BOMBX»,BOMBY: PEN 
3:PRINT CHR$(253):RETURN 

740 GOTO 1010 


Explosión 


7390 : 

760 PEN 3:FOR I=1 TO 6 

770 LOCATE BOMBX-1 ,BOMBY-1 

780 PRINT EXPL$(1),1) 

790 LOCATE BOMBX-1 ,BOMBY 

800 PRINT EXPL$(1,2) 

810 LOCATE BOMBX-1 ,BOMBY+1 

820 PRINT EXPL$(1,3) 

830 SOUND 1,05,15,15,1,15,31 

840 IF TOCADOS<>0 THEN 860 

850 IF INT(1/2)<>I1/2 THEN INK 0,24: TCOL= 
1:GOSUB 960 ELSE INK 0,0: TCOL=0:GOSUB 96 
0) 

860 NEXT 

870 IF BOMBX<8 THEN FOR I=1 TO 6:FOR J=1 
e TO 20:PEN 1:LOCATE I,J:PRINT CHR$(143) 
¿NEXT:NEXT 

880 BOMBX=0:LOCATE 9,22: PRINT",,.,.":LOCAT 
E 22,22 :PRINT",_,.," : RETURN 


Mueve e imprime tanques 


890 : 
900 IF RND(1)>NRONDA/100 THEN RETURN 
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910 LT=LT+1:1F LT=5 THEN LT=1 

920 IF EXISTE(LT)=0 THEN 910 

930 TANQX(LT)=TANQX(LT)+TVEL(LT) 

940 IF TANQX(LT)<=6 THEN TCOL=3:GOSUB 96 

O:GOTO 1110 

950 RETURN 

960 FOR TkK=1 TO 4 

970 IF EXISTE(TK)=0 THEN 990 ELSE LOCATE 
TANQX (TK), TANQY(TK):PEN TCOL 

980 PRINT TANQ$ 

990 NEXT: RETURN 


Tanques alcanzados 


1000 

1010 EXISTE(TOCADOS)=0: PUNT=PUNT+50: LOCA 
TE 35,22: PEN 2:PRINT PUNT 

1020 K=BOMBX:GOSUB 760: BOMBX=K:GOSUB 760 
: BOMBX=K:GOSUB 760 

1030 TOCADOS=0: BOMBX=K:GOSUB 760 

1040 IF EXISTE(1)=0 THEN IF EXISTE(2)=0 
THEN IF EXISTE(3)=0 THEN IF EXISTE(4)=0 
THEN 210 

1050 RETURN 


Imprime mensajes 


1060 : 

1070 LOCATE 4,24:PEN 3:PRINT SPACE$(34) 
1080 LOCATE 4,24:PRINT MSJ$(MN) 

1090 RETURN 


Fin del juego 


1100 : 
1110 MN=9:GOSUB 1070:FOR I=1 TO 1000 STE 
P 10:SOUND 1,1,8,15:NEXT 


O 


O $ DH. 70) O 0-20 50 0 


O 
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1120 FOR I=1 TO 25:PRINT:NEXT 


1 ' 
! | 
O | 1130 PRINT"PULSAL_UNA,,TECLALPARALOTRO,,INT | O 
1 ENTO." 
| 1140 IF INKEY$<>""THEN 1140 ] 
O | 1150 IF INKEY$=""THEN 1150 ELSE RUN O 


Tablas de comprobación 


10 = 1370 350 = 2371 690 = 4887 
20 = 3758 360 = 2888 700 = 8530 
30 = 4332 370 = 2940 710 = 4789 
40 = 4036 380 = “792 720 = 1176 
50 = 33559 390 = 1292 730 = 3483 
60 = 3666 400 = 2423 740 = 435 
70 = 7046 410 = 2993 750 = 0 

80 = 1161 420 = 2586 760 = 1087 
90 = 3947 430 = 1705 770 = 1768 
100 = “7174 440 = 793 780 = 989 
110 = 6735 450 = 2471 790 = 1508 
120 = 3370 460 = 3041 800 = 990 
130 = 4993 470 = 13759 810 = 1767 
140 = 4256 480 = 2117 820 = 991 
150 = 5203 490 = esti 830 = 663 
160 = 5709 500 = 2397 840 = 1539 
170 = “7690 510 = 1598 850 = 5024 
180 = 4015 520 = 0 860 = 176 
190 = 4646 530 = 638 870 = 4888 
200 = 0 540 = 259 880 = 2308 
210 = 5967 550 = 324 890 = 0 
220 = 3972 560 = 1493 900 = 2314 
230 = 3545 570 = 0 910 = 2611 
240 = 1680 580 = 5421 920 = 1909 
250 = 484 590 = 2860 930 = 3159 
260 = 5es1 £600 = 5040 940 = 3107 
270 = 3509 610 = 5732 950 = eol 
280 = 699 620 = 949 960 = 966 
290 = 1237 630 = 2397 970 = 4921 
300 = 2814 640 = 2224 980 = 662 
310 = 1185 650 = 3970 990 = 378 
320 = 1280 660 = 1371 1000 = 0 
330 = 0 670 = 4896 1010 = 4383 
340 = “790 680 = 5017 1020 = 4334 


96 


1030 
1040 
1050 
1060 
1070 


nous, 00 


1080 
1090 
1100 
1110 
1120 


on uo” o" 


1130 
1140 
1150 


TOTAL 


2590 
1178 
1539 


294758 
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Cucarachas 12 
cósmicas 


VIAJES: 0 


Clasificación: 


JUEGO DE EVASION 


Utiliza las teclas mostradas a continuación para ayudar a Harry el Hambrien- 
to, el hombre peludo de las montañas, a abandonar su campamento situado en la 
parte inferior de la pantalla, y maniobrar a través de las peligrosas cucarachas 
cósmicas para robar la comida que se encuentra en la parte superior de la 
pantalla. 

Harry debe entonces volver a su campamento y repetir el proceso tantas veces 
como sea posible. 

Para mover utiliza: “A” arriba, “Z” abajo, “coma” izquierda y “punto” de- 
recha. 


SUGERENCIAS DE PROGRAMACION 


Este juego puede modificarse para hacer que la cucaracha más cercana se 
mueva hacia Harry más frecuentemente o para cambiar la velocidad de las 
cucarachas y la velocidad de Harry. 


Variables del programa 


DIR(5) Direcciones de cada cucaracha. 
CC Cucaracha más cercana (1-5). 


HCOL, HFIL Columna y fila de Harry. 


HVLX, HVLY Velocidad de Harry en cada dirección. 
CUCAS(5) Carácter de cada cucaracha. 

BL$ Cadena usada para borra un carácter. 
CUCAX(5), CUCAY(5) Coordenadas de las cucarachas. 

NT Número de viajes terminados. 
CARGADO ¿Está Harry con comida? 

CT Número de cucarachas en acción. 

I Temporal. 


Estructura del programa 


Líneas Función] Actividad 


10-130  Inicializar 
140-300 Bucle principal 
310-360 Harry arroja la comida 
370-470 Dibujo de la comida/campamento 
480-510 Dibujo de las cucarachas 
520-610 Movimientos de las cucarachas 
620-670 Lectura del teclado 
680-750 Fin del juego 


Inicializar juego 


10 MODE 1: INK 0,13: INK 1,0: INK 2,3: INK 3 
»19: PAPER O:BORDER 13:CLS 

20 SYMBOL 240,3,0,240,)8,4,+7,15,31:SYMBOL 
241,31,15,15,4,)98,240,0,3:SYMBOL 242,136 
,136,136,144,166,255,299)»246:SYMBOL 243, 

246,255,128559,166,144,136,136,136 

30 SYMBOL 244,68,34,17,17,17,63,127,255: 

SYMBOL 245,2559,127163,17,17,17,34,68:SYM 

BOL 246,64,32,16,17,17,250,252,252: SYMBO 

L 247,252,252)250,17,17,16,32,64 

40 CUCAS$ (1 )=CHR$ (244 )+CHR$(246)+CHR$(10) 
+CHR$ (8 ) +CHR$ (8 ) +CHR$ (245) +CHR$ (247) 

50 FOR I=2 TO 5:CUCAS$(1 )=CHR$ (240 )+CHR$ ( 

242) +CHR$ (10) +CHR$ (8) +CHR$ (8)+CHR$(241)+ 

CHR$(243):NEXT 1 

60 CC=5:HCOL=20:HFIL=24 2: HVLX=0 : HVLY=-1 20 


O 
O 
O 
O 


O. 307 O 0 


100 


O “De $ QQ 2 O 00. O 


O” O 0 


COL(1)=3:FOR I=2 TO 5:CCOL(1)=2:NEXT 

70 DIR(1)=-3:DIR(2)=2:DIR(3)=-2:DIR(4)=1 
¿DIR(5)=-1 

80 BL$=",,.,"+CHR$(10)+CHR$ (8)+CHR$(8)+",, 
90 CUCAX (1 )=34: CUCAY (1)=3:CUCAX (2)=2:CUC 
AY (2)=7 : CUCAX (3)=32 : CUCAY (3)=11 :CUCAX (4) 
=3: CUCAY (4)=15: CUCAX (5)=33:CUCAY (5)=19 
100 NT=-1:GOSUB 310: CARGADO=1 :GOSUB 370: 
CARGADOD=0 

110 EVERY 30,1 GOSUB 420 

120 FOR CT=1 TO S5:GOSUB 480:NEXT 


Bucle principal del programa 


130 : 

140 FOR CT=1 TO 5 

150 GOSUB 520 

160 NEXT 

170 LOCATE HCOL>)HFIL:PRINT",," 

180 HCOL=HCOL+HVLX 2 HFIL=HFIL+HVLY :CC=INT 
(ABS((HFIL-2)/4))+1 

190 CC=CC+(CC=6) 

200 IF HCOL<1 THEN HCOL=35S 

210 IF HCOL>35 THEN HCOL=1 

220 IF HFIL<e THEN HFIL=28 

230 IF HFIL>24 THEN HFIL=24 

240 PEN 1:LOCATE HCOL',HFIL:PRINT CHR*s (24 
8) 

250 T1=CUCAY(CC)-HFIL:T2=CUCAX(CC)-HCOL 
260 IF(Ti=-1 OR Ti=0)AND(Te=-1 OR Te=0)T 
HEN 680 

270 IF(CARGADO=0)AND HCOL=21 AND HFIL=2 
THEN GOSUB 370: CARGADO=1:PRINT CHR$ (7) 
280 IF CARGADO AND(HCOL=20)AND(HF IL=24)T 
HEN GOSUB 310 

290 GOTO 140 


Harry arroja la comida 


300 : 
310 GOSUB 370 


o. Oo 


O- Y "O O 6 0 O: 0 


GQ EL O 0 
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O” 50 0: “O Qe O. O Ur O (O 0 0 
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320 CARGADO=0:NT=NT+1 

330 LOCATE 1,1:PEN 1:PRINT"VIAJES:,," ¿NT 
340 FOR I=1 TO 1000 STEP 20:SOUND 15,15,28, 
15,1,1,0:NEXT 

350 RETURN 


Dibujo de la comida y campamento 


360 : 

370 IF CARGADO THEN T=1 ELSE T=0 
380 MOVE 320,3790:DRAWR O,-16,T 
390 DRAWR 20,0,T:DRAWR O,16,T 
400 DRAWR-20,0,T:DRAWR 20,-16,T 
410 MOVER 05,16:DRAWR-205+-16,T 
420 MOVER 4,16:DRAWR 0Os,6,T 

430 DRAWR 12,0,T:DRAWR 12,)-4»,T 
440 MOVE 308,4:DRAWR 125,051 

450 DRAWR-65,65,1:DRAWR-6,-6»1 
460 RETURN 


Dibujo de las cucarachas 


470 : 

480 LOCATE CUCAX(CT),CUCAY(CT) 
490 PEN CCOL(CT):PRINT CUCA$(CT) 
500 RETURN 


Movimientos de las cucarachas 


510 : 

520 LOCATE CUCAX(CT) CUCAY(CT):PRINT BL$ 
¿ CUCAX(CT)=CUCAX(CT)+DIR(CT) 

530 IF CUCAX(CT)<=1 THEN CUCAX(CT)=1:DIR 
(CT)=-DIR(CT) 

540 IF CUCAX(CT)>=35S THEN CUCAX(CT)=34:D 
IR(CT)=-DIR(CT) 

550 GOSUB 480 

560 IF CC<>CT THEN RETURN 

570 IF RND(1)<0.4-NT/10 THEN RETURN 


O CO: O. 0 30 


580 IF CUCAX(CT)>HCOL THEN DIR(CT)=-ABS( 
DIR(CT)):RETURN 

590 DIR(CT)=ABS(DIR(CT)) 

£00 RETURN 


O 


Lectura teclado 
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| 

] 

| 

| 

| 

1 

| 

| 

] 
510 : 
620 IF INKEY(39)>=0 THEN HVLX=-1:HVLY=0: | 
RETURN 
£30 IF INKEY(31)>=0 THEN HVLX=1:HVLY=0:R |! 
ETURN 
640 IF INKEY(69)>=0 THEN HVLY=-1:HVLX=0: | 
RETURN | 
£50 IF INKEY(71)>=0 THEN HVLY=1:¿HVLX=0:R | 
ETURN | 
£60 RETURN 
| 
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Fin del juego 


670 : 

£80 LOCATE 5,24:PEN 1:PRINT"POBRELHARRY" 
6790 ENT 1,45,21,11,10,-1,1,10,1,1,5>-1>1 
FOR CT=1 TO 5:GOSUB 480:NEXT 

700 DEG:FOR I=0 TO 180 STEP 6: INK 2,RND( 
1)*26: INK 3,RND(1)*26 

710 SOUND 1,1000*SIN(1),15,155,05,1 

720 NEXT 

730 LOCATE 5,)24:PEN 1:PRINT"PULSAL_UNA,_TE 
CLALPARALOTROL_ JUEGO" 

740 IF INKEY$<>""THEN 740 

750 IF INKEY$=""THEN 750 ELSE RUN 
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Tablas de comprobación 


10 = 1700 60 = 65759 110 = 5370 
20 = “7578 70 = 4323 120 = 1551 
30 = “7117 80 = 2848 130 = O 

40 = 5748 90 = 8879 140 = 959 
50 = 7333 100 = 3201 150 = 199 
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1650 = 


170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 


vou ou on 408" 


370 
380 
390 
400 
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420 
430 
440 
450 
460 


Mon mon up 


470 = 


480 
490 
500 
510 
520 
530 


540 = 


550 
560 
570 


580 = 


590 
£00 
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4547 
2049 
201 
10) 
3038 
2785 
3068 
e8e2s 
201 
10) 
1506 
3069 
3343 
1626 
176 
2940 
1288 
16449 


171546 


Amstradoides 13 


Clasificación : 


LASERS 


JUEGO 
DE TIEMPO LIMITADO 


Tienes una cantidad limitada de potencia en tu laser para barrer a los asquero- 
sos atacantes que sobrevuelan tu base. Tienes también otro problema, una canti- 
dad de tiempo limitada. Para disparar al enemigo espera hasta que estén en la 
línea de fuego. Usando una combinación de teclas que se indican abajo, intenta 
conservar la potencia en tu laser y derribar a tantos invasores como te sea posible. 

Utiliza “espacio” para disparar en todas las direcciones. Usa “Z” para disparar 
horizontalmente y “barra” para disparar verticalmente. 


SUGERENCIAS DE PROGRAMACION 


El tiempo y el número de disparos puede modificarse para hacer más fácil o 
más difícil el juego. Podrían crearse algunos obstáculos inofensivos al azar en la 
pantalla como reclamo para enfurecer al jugador. Una sugerencia final sería 
cambiar los colores de la pantalla cuando el tiempo se incrementa y hacer sonar 
un ruido de alarma que indique tu destrucción inmediata. 


Variables del programa 


Ga T Temporales. 
LASERS Número de disparos que restan. 
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PUNT Puntuación del jugador. 

S$ Espacio. 

AX(4), AY(4) Coordenadas de los invasores. 
AXV(4), AYU(4) Velocidades. 


AC(4) Caracteres de los invasores. 

TPO Tiempo cuando empieza el juego. 

LAPSO Tiempo transcurrido. 

ARMA Disparando en todas las direcciones verticales u horizonta- 


les (1, 2, 3, respectivamente). 


Estructura del programa 


Líneas Función] Actividad 

10 Comienzo del juego 

30 Calcula el tiempo transcurrido 
S0 Llamada de inicialización 


70-210 Bucle principal 

230-390 Rutina de disparo/acierto 

410-660 Introducción 

680-820 Fin del juego 

840-850 Cambia las formas de los invasores 


Comienzo del juego 


10 GOTO 350 


Calcula el tiempo transcurrido 
20 : 


30 DI:LOCATE 20,25:LAPSO=INT((TIME-TPO)/ 
100): PRINT LAPSO; :El :RETURN 


Rutina de llamada de inicialización 
40 


O» O. 0-0 


O E (E 0 


SO GOSUB 410 
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O 00 0 O 


o Y 0 $ Q 


O 


O 


O 


Bucle principal del programa 


60 : 
70 DI:FOR T=1 TO 4:LOCATE AX(T),AY(T):PR 
INT",_" 


80 IF LAPSO>210 THEN FOR a=200 TO 500:S0 
UND 1>a>1:NEXT:PEN 3:LOCATE 1,8:PRINT",_,T 
u,tiempo,se,ha,acabado":GOTO 730 

90 AX(T)=AX(T)+AXV(T)2)AVY(T)=AY(TI+AYV(T) 
100 IF AX(T)>39 THEN AX(T)=2 

110 IF AX(T)<2e THEN AX(T)=38 

120 IF AY(T)>23 THEN AY(T)=2 

130 IF AY(T)<2e THEN AY(T)=23 

140 LOCATE AX(T),AY(T)>:PRINT CHR$(AC(T)) 
150 IF AX(T)=20 AND AY(T)=12 THEN 680 
160 NEXT:EI 

170 IF RND(1)>0.7 THEN SOUND 1,RND(1)+*30 
0+300,10 

180 IF INKEY(47)>-1 THEN LASERS=LASERS-2 
:¿ARMA=1 :GOSUB 230:GOTO 70 

190 IF INKEY(22)>-1 THEN LASERS=LASERS-1 
:¿ARMA=2:GOSUB 230:GOTO 70 

200 IF INKEY(71)>-1 THEN LASERS=LASERS-1 
¿ ARMA=3:GOSUB 230 

210 GOTO 70 


Rutina de disparo/acierto de invasores 


220 : 

230 DI:SOUND 1,1000,15,15,0,05,0 

240 IF ARMA=1 OR ARMA=3 THEN MOVE 304,21 
6: DRAWR-304,0,3:MODVE 320,2165:DRAWR 320,0 
13 

250 IF ARMA=1 OR ARMA=2 THEN MOVE 312,22 
4:DRAWR 0,184,3:MOVE 312,208:DRAWR O,-20 
0,3 

260 FOR T=1 TO 4 

270 IF ARMA=1 THEN IF AX(T)=20 AND AY(T) 
=12 THEN PUNT=PUNT+1000 

280 IF ARMA=1 THEN IF AX(T)=20 OR AY(T)= 
12 THEN PUNT=PUNT+250:GOTO 320 


O 


2 “0 E QQ 0: 0 O DO O 0 
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290 1F ARMA=2 THEN IF AX(T)=20 THEN PUNT 
=PUNT+250:GOTO 320 

300 IF ARMA=3 THEN IF AY(T)=128 THEN PUNT 
=PUNT+250:GOTO 320 

310 GOTO 330 

320 LOCATE AX(T),AY(T):PRINT CHR+$(238);: 
AX(T)=CINT(RND(1)*36)+2:AY(T)=CINT(RND (1 
)*18)+2:SOUND 1,200,15,15,)0,)0,0:SOUND 1, 
250,15,15,1,1,1 

330 PRINT CHR$(8);5S5$; 

340 NEXT 

350 MOVE 304,216:DRAWR-304,0,0:MOVE 320, 
216:DRAWR 320,0,0 

360 MOVE 312,224:DRAWR 0,184,0:MOVE 312, 
208: DRAWR 0,-200,0 

370 LOCATE 7,25:PRINT PUNT; 

380 LOCATE 34,25:PRINT LASERS;: IF LASERS 
<=0 THEN 680 

390 El :RETURN 


Introducción e inicialización 


400 : 

410 MODE O:PEN 2:LOCATE 5,6:PRINT"AMSTRA 
DOIDES" 

420 FOR T=1 TO 100:SOUND 2,T*30,5,135,15»1 
»1:PEN 3:LOCATE 10,12 

430 PRINT CHR$(238):PEN 1:LOCATE 10,12:P 
RINT",,":NEXT T 

440 SOUND 1,500,100,15,1,1,1:FOR T=0 TO 
64 STEP 6: C=ROUND(RND(1)*14)+1:GOSUB 470 
¿NEXT T 

450 C=0:FOR T=0 TO 64 STEP 6:GOSUB 470:N 
EXT T 

460 GOTO 480 

470 PLOT 312+T1,216,C:PLOT 312+T,216+T,C: 
PLOT 312+T,216-T,C:PLOT 312,216+T1,C:PLOT 
312)216-T,C:PLOT 312-T,216-T,C:PLOT 312 
-T,3216,C:PLOT 312-T,216+T,C:RETURN 

480 A$=INKEYS 

490 LOCATE 1,15:PEN INT(RND(1)*4+1) 

500 PRINT"Pulsa,una,tecla, para, comenzar,, 
la,mision" 


O. Y 


O 


O 0 0 QQ O 


O TQ O 0 


510 IF A$=""THEN 480 

520 PUNT=0:LASERS=50 

530 S$=",," 

540 MODE 1: INK Os,O:INK 1,18: INK 2,24: INK 
3)6:PAPER O:PEN 1:BORDER O 

550 LOCATE 1,25:PRINT"PUNTOS innuuuuoTIEMP 
Oui tASER Suu” 

560 DIM AX(4),AY(4),AXV(4),AYV(4): FOR T= 
1 TO 4 

570 AX(T)=CINT(RND(1)*36)+2:AY(T)=CINT(R 
ND(1)*18)+2 

580 AXV(T)=CINT(RND(1)*3)-2:AYV(T)=CINT( 
RND(1)*3)-2 

590 IF AXV(T)=0 OR AYV(T)=0 THEN 570 

600 NEXT 

610 DIM AC(4):AC(1)=181:AC(2)=224:AC(3)= 
231:AC(4)=208 

620 SYMBOL AFTER 181:SYMBOL 224,24,126,2 
13,171,255166+60,24:SYMBOL 181,36,66,165 
124,124,165,166,36:SYMBOL 231,129,153,1655 
219,255,165,153,129 

630 SYMBOL 240,24,24,60,255,255+60,24,24 
¿LOCATE 20,12:PEN 1:PRINT CHR$(240):PEN 

2 

640 TPO=TIME 

650 EVERY 10,1 GOSUB 30:EVERY 40,2 GOSUB 
840 

660 RETURN 


Fin del juego 


670 : 

680 V=RESTO(1):V=RESTO(2):LOCATE 20,12:P 
RINT CHR$(238):SOUND 0,200,100,15>,1>1>,1: 
SOUND 1,250,100,15,1»,1»1:SOUND 2,300,100 
15,111 

690 FOR T=1 TO 100:PEN 3:LOCATE 205,12:PR 
INT CHR$(238):PEN 1:LOCATE 20,12:PRINT",, 
">NEXT T 

700 C=3:INK 3,24>6:SPEED INK 10,15:FOR N 
=1 TO 2:FOR T=0 TO 644 STEP 6 

710 PLOT 312+T,216,C:PLOT 312+T1,216+T15,C: 
PLOT 312+T1,216-T,C:PLOT 312,216+T,C:PLOT 


O 


O 
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312)216-T,)C:PLOT 312-T,216-T,C:PLOT 312 
-T,)216,C:PLOT 312-T1,216+T,C 

720 NEXT T:C=0:NEXT N:INK 35,6 

730 LOCATE 1,10:PEN 1:PRINT"otra,mision? 
uís=si,.,n=n0)" 

740 A$=INKEYS 

750 LOCATE 145,1:PEN INT(RND(1)*4+1):PRIN 
T"AMSTRADOIDES" 

760 IF A$=""THEN 740 

770 I1F A$="S"OR A$="s" THEN RUN 

780 IF A$="N"OR A$="n"THEN 800 

790 GOTO 740 

800 LOCATE 1,8:PRINT SPACE$(20) 

810 LOCATE 1,10:PEN 1:PRINT"adios».por,a 
hora";SPACES$S(20) 

820 END 


Cambia las formas de los invasores 


830 : 

840 IF C1i=1 THEN C1=0:SYMBOL 202,0,60,12 
6,)143,255,)241,126,60:RETURN 

850 C1=1:SYMBOL 202,0,60,126,241,255,143 
,126,)60:RETURN 


Tablas de comprobación 
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10 = 272 140 = 2524 270 = 
20 = 0 150 = 2607 280 = 
30 = 4309 160 = 2397 290 = 
40 ==. 0 170 = 2811 300 = 
50 = 344 180 = 4536 310 = 
60 = 0 190. = 4511 320 = 
70 = 2946 200 = 4268 330 = 
80 = "7076 210 = 260 340 = 
90 = 4742 220 = O 350 = 
100 = 2153 230 = 1086 360 = 
110.= 2155 240 = 4308 370 = 
120 = 2139 250 = 4607 3890 = 
130 = 2142 260 = 891 390 = 


Ó O O 0 0 0 


5423 
5727 
4539 
4529 
265 
8299 
884 
176 
2028 
2296 
1067 
2625 
422 


400 
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420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


A 


560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
£80 
690 
7200 


on 4 


"o" 


o" 


710 = 


2917 
4316 
4420 
2617 
176 
3899 
6421 
3249 
948 
1017 
201 
O 
6105 
3806 
3384 


12105 


720 
730 
740 
7250 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 


TOTAL = 


1503 
29559 
2397 
2966 
1223 
2150 
2003 
420 
845 
2780 
152 
10) 
3606 
2700 


219832 
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Trampa de 
los monstruos 


Clasificación: 


JUEGO 
DE TIEMPO LIMITADO 


Esta es una sencilla pero efectiva versión de los invasores del espacio. Los 
invasores avanzan sobre ti de forma aleatoria y debes dispararles tantas veces 
como te sea posible dentro de un tiempo límite. 

Utiliza “espacio” para disparar, “coma” para mover a la izquierda y “punto 
para mover a la derecha. 


” 


SUGERENCIAS DE PROGRAMACION 


El juego puede actualizarse para dar al jugador más hombres y hacer que los 
invasores viajen más lentamente. 


Variables del programa 


TPO Tiempo que resta en segundos. 

PUNT Puntuación del jugador. 

NAVE Columna de la nave. 

XNAVE(4) YNAVE(4) Coordenadas de las naves invasoras (columnas, filas). 
NAVES Caracteres para imprimir cuando la nave se mueve. 
FLAG Ha pasado un segundo. 
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Estructura del programa 


Líneas 


Función] Actividad *' 


10-70 


Inicializar pantalla, inicializar variables 


80-240 Bucle principal 
250-310 Rutina de disparo 
320-340 Rutina de interrupción 
350-360 Rutina de parada 
370-410 Fin del juego 
420-550 Pantalla inicial 


116 


Inicializar pantalla y variables 


10 GOSUB 420 

20 MODE 1:BORDER O: INK OO: INK 1,18: INK 

2124: INK 3,36,24:SPEED INK 3,1:PAPER O:PE 
N 1:SPEED KEY 1,1:0N BREAK GOSUB 350:EVE 
RY 50 GOSUB 320 

30 TPO=100:PUNT=0:NAVE=20:DIM XNAVE (4), Y 
NAVE (4): FOR T=1 TO 4:XNAVE(T)=CINT(RND(1 
)4*36)+2: YNAVE(T)=CINT(RND(1)*10)+1:NEXT 

7 

40 NAVES$=",,"+CHR$(240)+",," 

SO FLAG=0:SYMBOL 240,24,24,189,189,255951 
87,153,129:SYMBOL 241,24,60,90,219,255»1 
53,129,566 

60 LOCATE 1,25:PRINT",,TIEMPO iunumumummmPUN 
TOS_uiuu" 


Bucle principal del programa 


70 : 

80 LOCATE NAVE 5,24 

90 PEN 2 

100 PRINT NAVES 

110 PEN 1 

120 FOR T=1 TO 4 

130 LOCATE XNAVE(T),YNAVE(T):PRINT",_” 
140 YNAVE(T)=YNAVE(T)+1:1F YNAVE(T)>23 T 
HEN YNAVE(T)=1 


O: CO Or. O 


0-2. 


O 


O 


150 XNAVE(T)=XNAVE(T)+CINT(RND(1)+3)-2:1 
F XNAVE(T*>39 OR XNAVE(T)<2 THEN XNAVE (T 
)=CINT(RND(1)*36)+2: YNAVE(T)=1 

150 LOCATE XNAVE(T)),YNAVE(T):PRINT CHRS$( 
241) 

170 NEXT T 

180 IF INKEY(47)>-1 THEN GOSUB 250 

190 NAVE=NAVE+(INKEY (39)>-1)-(INKEVY(31)> 
-1) 

200 IF NAVE<2 THEN NAVE=2 

210 IF NAVE>37 THEN NAVE=37 : 

220 IF FLAG=1 THEN TPO=TPO-1:LOCATE 10,2 
S:PRINT TPO:FLAG=0: IF TPO=0 THEN 370 

230 GOTO 80 


Disparando 


240 : 

250 PEN 3:FOR T=23 TO 1 STEP-1:LOCATE NA 

VE+1),T:PRINT CHR$(149):NEXT T 

260 ENV 1,7,-1,10,8,-1,40:SOUND 2,0,2551 
31,11 

270 FOR T=23 TO 1 STEP-1:LOCATE NAVE+1»),T 
¿PRINT",,":NEXT T:PEN 1 

280 FOR T=1 TO 4:1F XNAVE(T)=NAVE+1 THEN 
SOUND 1,250,50,15,1>,1,1:PUNT=PUNT+25:LO 

CATE 30,25:PRINT PUNT: XNAVE (T)=CINT(RND( 
1)*36)+2: YNAVE(T)=1 

290 NEXT T 

300 RETURN 


Rutina de interrupción 


310 : 
320 FLAG=1 
330 RETURN 


Rutina de parada 


340 : 
350 SPEED KEY 305,1:STOP 


O. 0 O 


O 


FE €. 0 O 


O 
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O: “O ¿On E O O: O O. Y 


0 ¿05 0. =QlL Y 
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l 


Fin del juego 


360 : 

370 MODE O:LOCATE 6,7:PRINT"FIN,_,DE,,TIEMP 
O": PRINT:PRINT"HAS_DISPARADO_A"5PUNT/25: 
PRINT"MONSTRUOS":*PRINT 

380 PRINT"TULPUNTUACION":PRINT PUNT 

390 FOR T=1000 TO O STEP-10:SOUND 1,T5,5» 
15)0)0,0:NEXT T 

400 A$=INKEYS$: IF A$=""THEN 400 ELSE RUN 


Pantalla inicial 


420 MODE O 

430 INK 14,11: INK 15,23: INK 35,6 

440 FOR T=0 TO 640 STEP 64 

450 FOR N=0 TO 15 

460 MOVE N*4+T,O:DRAWR 0,400,N 

470 NEXT N:NEXT T 

480 LOCATE 8,5:PRINT",,TRAMPAL_DEL_MONSTRUO 

Ss" 

490 LOCATE 8,9:PRINT" 414%" 

500 A$=INKEYS: IF A$=""THEN 500 ELSE FOR 

T=1 TO 26:LOCATE 1,1:PRINT CHR$(11):NEXT 
T 

510 LOCATE 35,1:PRINT"”?*5* uuuuu.ua: 120." 3CHR 
$(11);CHR$(11):LOCATE 3,1:PRINT"*.?, uuu 

uv. DCHA" 3CHR$(11);CHR$(11):LOCATE 3,1:PRI 
NT"ESPACIO,..,.FUEGO" 

520 FOR T=1 TO 10:LOCATE 1,1:PRINT CHR$( 
11):NEXT T 

530 FOR T=1 TO 100:SOUND 1,T,2,10,1,1,1: 

NEXT T 

540 FOR T=1 TO 15:LOCATE 1,1:PRINT CHR$( 
11):NEXT T 

550 RETURN 


O 


O 30 O 710) O: O: 9 


Or O -Q 
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Tablas de comprobación 


"non. a un uan sn 4.4404. uon 1 


394 
3685 
9867 
1960 
4873 
1969 
O 
733 
203 
652 
202 
891 
2204 
4867 
995359 
2741 
401 
1751 
35976 


200 
210 
e20 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 


"on 


on o "on$n un 


1882 
1971 
3327 
270 
O 
4116 
1728 
3669 
10202 
401 
201 
O 
677 
201 
10) 
690 
10) 
35120 
1926 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 


O O A 


no'”n(”_<u.«Q¿ un 4 4 41 


TOTAL = 


28595 
2186 
O 
187 
820 
1347 
906 
1826 
797 
1962 
844 
4509 
535633 
2tel 
2205 
2126 
201 


119790 
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Invasores 
misteriosos 


Clasificación: 


JUEGO 
' DE TIRO AL BLANCO 


Guía tu nave a través de esta extraña galaxia evitando chocar contra los 
monstruos y disparándoles. Estás destinado a quedarte sin combustible y morir, de 
modo que debes destruir tantas naves como puedas. 

Utiliza “A” para mover hacia arriba, “Z” para mover hacia abajo y “espacio” 
para disparar. 


Variables del programa 


ALTURA Línea de la nave. 

PUNT Puntuación del jugador. 

INVX(4), INVY(4) Coordenadas de los invasores (columna, fila). 
FUEL Cantidad de combustible que queda. 

Y Coordenada vertical de la nave. 

T Temporal. 
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Estructura del programa 


Líneas Función] Actividad 


10-90 Inicializar 

100-220 Bucle principal 
230-310 Rutina de disparo 
320-360 Fin del juego 


Inicializar el juego 


] | 
] 
1 | 
I | 
Or 
I ' 
| | 
O | 10 SYMBOL 240,0,9,4,81.2,40,3,0:SYMBOL 2 | y 
1 41,0,224,127,248,120,255,127,255: SYMBOL | 
| 242,0,0,224,16,8,255,255,252:SYMBOL 243, | 
O |!  60,90,126,102,60,66,129,129 No, 
| 20 ALTURA=12 
¡ 30 PUNT=0 
O | 40 DIM INVX(4),INVY(4):FOR T=1 TO 4: INVX | () 
l— (T)=CINT(RND(1)*20+18) : INVY(T)=CINT(RNDC 1 
1 1)*20+1):NEXT T 
O | 50 MODE 1:BORDER O:PAPER O:PEN 2:INK 0,0 1 () 
+ INK 1,18: INK 2324: INK 3,7,24:SPEED INK | 
Il. 10,5:ENV 1,7,-1,10,8,-1,40 
O | 60 LOCATE 1,25:PRINT"MARCADOR........... 1 0 
o “reja RUBI te en 
|. 70 FUEL=SO 
O I!.- 80 LOCATE 1,ALTURA:PEN 3:PRINT CHR$(240) 1! O 
lO 3:PEN 1:PRINT CHR$(241)5CHR$(242):PEN 2 
1 | 
O | | O 
O : Bucle principal del programa | 
: 0 
90 : 
O l 100 FOR T=1 TO 4 ES 
| 110 LOCATE INVX(T),INVY(T):PRINT"," 
O | 120 INVX(T)=INVX(T)-1:1F INVX(T)<3 THEN 
| IF INVY(T)=ALTURA THEN 320 ELSE INVX(T)»= ¡ O 
| 39: INVY(T)=CINT(RND(1)*20+1) 
o! 130 LOCATE INVX(T))INVY(T):PRINT CHR$(24 | O 
! 


3) 
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o O 


O” Y 


OQ” 0 O Y 


O 


140 NEXT T 

150 IF INKEY(69)>-1 THEN LOCATE 1,ALTURA 
¿PRINT" a" ¿ALTURA=ALTURA-1 :LOCATE 1,ALT 
URA:PEN 3:PRINT CHR$(240)5:PEN 1:PRINT € 
HR$ (241) ¡CHR$(242):PEN 2 

160 IF ALTURA<2 THEN LOCATE 1,1:PRINT". 
au": ALTURA=23:LOCATE 1,23:PEN 3:PRINT CHR 
$(240);:PEN 1:PRINT CHR$(241);CHR+$(242): 
PEN e 

170 IF INKEY(71)>-1 THEN LOCATE 1,ALTURA 
¿PRINT" uu”: ALTURA=ALTURA+1 :LOCATE 1,ALT 
URA:PEN 3:PRINT CHR$(240);:PEN 1:PRINT C 
HR$ (241) ¡CHR$ (242) :PEN e 

180 IF ALTURA>23 THEN LOCATE 1,24:PRINT" 
uuu" ¡ALTURA=2:LOCATE 1,2:PEN 3:PRINT CHR 
$(240);:PEN 1:PRINT CHR$(241);CHR$(242): 
PEN 2 

190 IF INKEY(47)>-1 THEN GOSUB 230 

200 FUEL=FUEL-1:LOCATE 35,25:PRINT FUEL: 
IF FUEL<=1 THEN 320 

210 GOTO 100 


Rutina de disparo, actualizar marcador y mostrar 


combustible 


220 : 

230 Y=(25-ALTURA)*16+4 

240 MOVE 48,Y:DRAW 640,Y,3 

250 SOUND 129,100,50,15,1»,15,1 

260 FOR T=1 TO 4 

270 IF ALTURA=INVY(T)THEN PUNT=PUNT+T+*10 
:¿LOCATE 20,25:PRINT PUNT: FUEL=FUEL+5:LOC 
ATE INVX(T)5,INVY(T):PRINT",,”" :SOUND 2,100 
0,50,15,15,1»,1: INVX(T)=CINT(RND(1)*20+18) 
: INVY(T)=CINT(RND(1)*20+1) 

280 NEXT T 

290 MOVE 48,Y:DRAW 640,Y5,0 

300 FUEL=FUEL-1:RETURN 


Fin del juego 


310 : 
320 SOUND 2,200,100,1),1»1 


O 


O 


O 


O 


O 
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i 330 LOCATE 1,ALTURA:PRINT"._." 

¡ 340 LOCATE 20,25:PEN 3:PRINT PUNT 
350 FOR T=1 TO 3000:NEXT T 
| 
] 


360 RUN 


Tablas de comprobación 


10 = 7602 140 = 401 270 = 14107 
20 = 874 150 = 8288 280 = 401 
30 = 721 160 = 6262 290 = 1158 
40 = 7449 170 = 8289 300 = 1583 
SO = 3411 180 = 6261 310 = 0 

60 = 2605 190 = 1731 320 = 835 
70 = 7395 200 = 3689 330 = 1182 
80 = 3947 210 = 290 340 = 1269 
7J90= O 220 = O 350 = 1496 
100 = 891 230 = 1992 360 = 202 
110 = cu8e2 240 = 1161 

120 =, 9345 250 = 907 TOTAL = 104698 
130 = 2621 260 = 891 
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Salto 
de la rana 


SALTO DE RANA 


mn mom mm A E E 
e A A 


A 


¡ e a 


po «» aa ITA 


Clasificación : 


PUZZLE 


Usando las teclas indicadas a continuación resuelve este viejo puzzle. Cambia 
las ranas en el menor tiempo posible; para ello puedes saltar a un espacio vacío 
por encima de uno ocupado. El juego se termina cuando todos los cuadrados y 
círculos han sido movidos a la posición opuesta a la que ocupaban. 

Pulsa el número (1-9) del teclado que represente el número que tú deseas 
mover. Pulsa O para terminar el juego si estás atascado. 


Variables del programa 


XVAL, YVAL Guarda los valores de columna/fila en la rutina de interrup- 


ción. 

VACIA Posición que está vacía. 
NCONT Número de movimientos. 
ESPACIO Valor del carácter de un espacio. 
ROMBO Valor del carácter de un rombo. 
CUADRO Valor del carácter de un cuadrado. 
A(9) Caracteres de cada posición. 

Temporal. 
DSD Posición desde la que se mueve una figura. 
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Estructura del programa 


Líneas Función] Actividad 


10-90 Inicializar 
100-240 Dibuja caracteres 
250-390 Bucle principal 
400-460 Gana el jugador 
470-570 Dibuja pantalla/Inicializar 
580-600 Imprime los movimientos del jugador 
610-630 Fin del juego 


Inicializar el juego 


GOSUB 470 

DIM A(9) 

FOR T=1 TO 4 
A(T)=ROMBO 
A(T+5)=CUADRO 
NEXT T 
A(5)=ESPACIO 
GOTO 250 


PRINT CHR$(7) 

DI 

FOR T=1 TO 9 
LOCATE Tx*2,5 
PEN 12 

PRINT CHR$(A(T)) 
LOCATE Tx*e-1,7 


210 LOCATE 3,15:PEN 4:PRINT NCONT 
220 EVERY 10 GOSUB 580 
230 RETURN 


I 
] 
I 
l 
I 
i 
| 
| 
| Dibuja caracteres 
| 
|] 
Ú 
1 
] 
I 
1 
] 
I 
| 
| 
I 
| 
l 
| 
] 


O 0-0 O 0 
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Bucle principal del programa 


240 : 

250 GOSUB 100 

260 LOCATE 1,10 

270 PEN 10 

280 A$=INKEYS: IF A$=""THEN 280 

290 IF A$="0"THEN 610 

300 IF ASC(A$)<49 OR ASC(A$)>57 THEN SOU 
ND 1,400,50,7,0,0,1:GOTO 280 

310 DSD=VAL(A5$) 

320 IF ABS(DSD-VACIA)>2 OR DSD=VACIA THE 
N SOUND 1,300,50,7,0,)0,1:GOTO 280 

330 A(VACIA)=A(DSD) 

340 A(DSD)=ESPACIO:VACIA=DSD 

350 NCONT=NCONT+1 

360 FOR T=1 TO 4 

370 IF A(T)=CUADRO AND A(T+5)=ROMBO AND 
A(5)=ESPACIO THEN NEXT:GOTO 400 

380 GOTO 250 


Gana el jugador 


390 : 

400 GOSUB 100:LOCATE 1,17:PEN 2 
410 PRINT"ENHORABUENA,!!!" 

420 PRINT"LO,CONSEGUISTE,'EN"; 
430 PEN 1:PRINT NCONT; 

440 PEN 2:PRINT"MOVIMIENTOS:" 
450 GOTO 420 


Dibuja la pantalla e inicializar 


460 : 

470 MODE O:PEN 3:BORDER 12 

480 LOCATE 45,2:PRINT"SALTO, DELRANA" 
490 VACIA=5:NCONT=1 

500 ESPACIO=32 : ROMBO=227 : CUADRO=233 
510 LOCATE 35,13 


o O 


O 


O” QU: O 10: 10.0 O O q 


O 


O 
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O | 520 PRINT"mov." O 
| 530 PRINT",,"CHR$(204)STRING$(4,CHR$(208) | 
Ir.  )CHR$(205) 

O | 540 PRINT",_"CHR$(211)SPACE$(4)CHR$(209) O 
|. 550 PRINT","CHR$(205)STRING$(4,CHR$(210) | 
[| )CHR$(204) 

O | 560 RETURN O 
| 
Ol O 
Imprime los movimientos del jugador 
| | 
! | 
O. 50 
5705 l 
Il. 580 DI:XVAL=POS(H0):YVAL=VPOS($0):LOCATE —! 

O 1,11:PEN INT(RND(1)%4+1):PRINT"TULMUEVE — 1 O 
|. S,":El 
O |. 590 LOCATE XVAL,YVAL : RETURN O 
| | 
| | 
| | 
O Fin del juego 0 
| l 
O | 6500: 00 
l. £10 DI:LOCATE 1,18:PEN 1:PRINT"adios.por | 

O ahora" | 
¡620 LOCATE 4,22:PRINT"Pulsanunantecia.pa | O 
] ra," :LOCATE 4,24:PRINT"otro, juego” ] 
| £30 IF INKEY$=""THEN 630 ELSE RUN O 


Tablas de comprobación 


992 230 


10 = 404 120 = = 201 
20 = 457 130 = 719 240 = O 

30 = 891. 140 = 224 250 = 289 
40 = 1275 150 = 1042 260 = 263 
50 = 1601 150 = 981 270 = ee 
60 = 401 170 = 208 280 = 1712 
70 = 1202 180 = 416 290 = 1077 
80 = 440 190 = (01 300 = 3338 
90= 0 200 = ee0o 310 = 1160 
100 = 5351 210 = 1291 320 = 4569 
110 = 219 220 = 451 330 = 1670 
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340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 


450 
460 
470 
480 
490 
500 
510 
320 
530 
540 
550 


O O 


560 
570 
580 
590 
600 
610 
£20 
630 


II 


TOTAL = 
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Clasificación: 


JUEGO DE OBSTACULOS 


Intenta encontrar el camino de salida para llegar a casa a través de un 
laberinto en movimiento en un tiempo límite. Guárdate del agujero huidizo que 
puede acortar tu viaje. 

Utiliza “A” para mover hacia arriba, “Z” para mover hacia abajo, “coma” para 
mover a la izquierda y “punto” para la derecha. 


Variables del programa 


PUNT Puntuación del jugador. 
NR Número de intentos. 
TPO Número de segundos que restan. 


HUECO(4) Columna de cada agujero del muro. 
FMURO(4) Fila de cada muro. 


DIR(4) Movimientos de los agujeros; dirección y velocidad. 

LIMITE(4) Puntos a los que el agujero ha alcanzado el lado de la pan- 
talla. 

INIC(4) Puntos a los que vuelve a reinicializar el agujero. 

HCOL, HFIL Coordenadas del hombre (columnaffila). 

MONST Columna del monstruo. 

HUECOS Carácter de un agujero. 

T Temporal. 
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Estructura del programa 


Lineas 


Función] Actividad 


O 
O 
O 
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O. 40. 10-05: 0 0 0 “9 


10 


Llamada de inicialización 


20-250 Bucle principal 

260-330 El hombre se golpea 

340-390 El hombre alcanza la parte inferior 

400-440 Rutina de interrupción 

450-600  Inicializar 

610-620 Alterna los caracteres de definición del monstruo 


Inicializar 
10 GOSUB 450 
Bucle principal del programa 


20 : 

30 DI:LOCATE HCOL>)HFIL:PRINT CHR$(248) 
40 PEN 3 

50 FOR T=1 TO 4 

60 HUECO(T)=HUECO(T)+DIR(T) 

70 IF HUECO(T)=LIMITE(T)THEN LOCATE LIMI 
TE(T),FMURO(T):PRINT CHR$(143)3CHR$(143) 
3 CHR$ (143) 3 CHR$ (143) CHR+$(143) : HUECO(T)= 
INIC(T) 

80 LOCATE HUECO(T),FMURO(T) 

90 PRINT HUECOS 

100 NEXT T 

110 IF MONST<1 THEN LOCATE 1,22 ELSE IF 
MONST>39 THEN LOCATE 39,22 ELSE LOCATE M 
ONST,e2 

120 PEN 2:PRINT", "¡¿CHR$(2595)3",," 

130 MONST=MONST+( (HCOL<(MONST+1 ) )- (HCOL> 
(MONST+1)))*0,.9 

140 PEN 1 

150 IF TEST(HCOL*16-8), (25-HFIL)*16+8)>1 
THEN 260 

160 LOCATE HCOL)>)HFIL:PRINT",," 


o o O 


O. O: E 70 0 


170 HCOL=HCOL+(INKEY (39)>-1)-—(INKEY(31)> 
=1):HFIL=HF IL+(INKEY (49)>-1)-( INKEY (71)> 
-1) 

180 IF HCOL<2 THEN HCOL=38 

190 IF HCOL>38 THEN HCOL=2 

200 IF HFIL<i THEN HFIL=1 

210 IF HFIL>23 THEN 340 

220 IF TEST(HCOL*16-8), (29-HFIL)*165+8)>1 
THEN 260 

230 El 

240 GOTO 30 


El hombre se golpea 


250 : 

260 SOUND 1,500,100,15,15,1»,1 

270 FOR T=1 TO 40: INK 1,RND(1)*26: INK 2, 
RND(1)*26: INK 3,RND(1)*26:SOUND 2,T,105,1 
S5S»1,1,1:NEXT T 

280 MODE O: INK 1,24:LOCATE 1,10:PRINT"Ti 
empo,que,resta:":¿LOCATE 1,12:PRINT TPO;" 
usegundos,,” 

290 LOCATE 6,15:PEN 7:PRINT"Puntuacion:" 
¿LOCATE 6,17:PRINT PUNT; "puntos." 

300 FOR T=1 TO 4000:NEXT T 

310 MODE O:LOCATE 5,8:PEN 8:PRINT"PULSA,, 
ESPACIO," :LOCATE 3,10:PRINT"PARA_JUGAR,D 
ELNUEVO" 

320 IF INKEY$<>",,"THEN 320 ELSE RUN 


El hombre alcanza el final 


330 : 

340 MODE O:SOUND 1,1,505,15 

350 LOCATE 8,12:PRINT"BONOS" 

360 FOR T=2000 TO O STEP-100:SOUND 2,T),1 
O:NEXT T 

370 NR=NR+1 : BONOS=NR+TPO : PUNT=PUNT+BONOS 
*1000:LOCATE 9,14:PRINT BONOS*1000:FOR T 
=1 TO 2000:NEXT T 

380 :GOSUB 460:GOTO 30 


O (0 O Y 


O 


O De dl 0 O O E: Q 


O 
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DO O “O DD 00 E 0 O 


O 
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Rutina de interrupción 


390 : 

400 PEN 2:TPO=TPO-1:LOCATE 10,25:PRINT T 
PO: IF TPO>O THEN PEN 1:RETURN 

410 FOR T=3000 TO 4000 STEP 100:SOUND 1, 
T,10,)15,1,1,1:NEXT T 

420 MODE O:LOCATE 7,10:PRINT"FIN,DEL,,TIE 
MPO_" 

430 FOR T=1 TO 2000:NEXT T:RUN 


Inicializar 


440 : 

450 SYMBOL AFTER 225:PUNT=0:DIM HUECO(4) 
»DIR(4),FMURO(4),LIMITE(4),INIC(4) 

460 MODE 1:PAPER O: INK O5,0O 

470 PEN 1: INK 1,20 

480 BORDER O: INK 2,15: INK 35,18 

490 HCOL=20:HFIL=1 

500 MONST=38 

510 TPO=25-NR:EVERY 50,1 GOSUB 400:DI:EV 
ERY 20,e GOSUB 610 

520 LOCATE 1,25:PEN 2:PRINT"TIEMPO...... 
.«. MARCADOR ....o.... ” 

530 LOCATE 30,25:PRINT PUNT 

540 HUECO(1)=20: HUECO (2)=30:HUECO(3)=1:H 
UECO(4)=10:DIR(1)=1:DIR(2)=-0.5:DIR(3)=1 
¿DIR(4)=-1 

550 FMURO(1)=4:FMURO(2)=9:FMUROD(3)=15:FM 
URO (4) =20 

560 HUECOS-CHR$(143)+",.."+CHR$(143) 

570 PEN 3:FOR T=1 TO 4:LOCATE 1,FMURO(T) 
:PRINT STRING$(40,CHR$(143)):NEXT T 

580 LIMITE (1)=36:INIC(1)=1:LIMITE(2)=1:1 
NIC(2)=36:LIMITE(3)=36: INIC(3)=1:LIMITE( 
4)=1: INIC(4)=36 

590 PEN 1:RETURN 


O 0 


O 


O. O 0 CO: Y 


O" O O. .Q 


Alterna los caracteres de definición del monstruo 


600 : 


610 IF Ci=1 THEN C1=0:SYMBOL 225,24,126, 
255,189,153,60,231,66: RETURN 

£620 C1=1:SYMBOL 225,24,126,225,189,189,e 
4,2460: RETURN 


Tablas de comprobación 


10 = 384 230 = 220 450 = 4658 
20= O 240 = 220 460.= 424 
30 = 2168 250 = 0 470 = 469 
40 = 204 260 = 964 480 = 674 
50 = 891 270 = 5246 490 = 14065 
60 = 2791 280 = 4665 500 = B44 
70 = 9193 290 = 3780 510 = 2809 
80 = 1904 300 = 1476 520 = 2589 
90 = 726 310 = 3834 530 = 1042 
100 = 401 320 = 1605 540 = 7051 
110 = 4491 330 = 0 550 = 3611 
120 = 1364 340 = 669 5560 = 2408 
130 = 5981 350 = 949 570 = 4058 
140 = 202 360 = 2684 580 = 7103 
150 = 36394 370 = 8458 590 = 404 
160 = 1404 380 = 615 600 = O 
170 = 7201 390 =. 0 610 = 3861 
180 = 1921 400 = 4007 620 = 2616 
190 = 1918 410 = 2866 

200 = 1866 420 = 1773 TOTAL = 145580 
210 = 1325 430 = 1719 

220 = 3634 440 = 0 
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Gusano 
gigante 
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Clasificación: 


JUEGO EDUCATIVO 


Controlas a una pequeña serpiente. El objetivo, como en la vida real, es sobrevivir 
y crecer, aunque a diferencia de la realidad todo lo que tienes que hacer en este juego 
es coger los obstáculos antes de que desaparezcan, coleccionar los puntos y crecer en 
longitud (¡y estatura!). El tope (siempre hay uno) es el borde; tu supervivencia se 
interrumpirá si chocas contra él. Esto, obviamente, es más difícil de evitar según 
creces (¿te suena familiar ?). 

Para mover utiliza: “A” para arriba, “Z” para abajo, “coma” izquierda y “punto” 
derecha. 


SUGERENCIAS DE PROGRAMACION 


Disminuye el tiempo que tienen los objetos para permanecer en la pantalla e 
incrementa la velocidad del gusano y la longitud de los segmentos. 


Variables del programa 
X(250), Y(250) Coordenadas de cada segmento del gusano. 


LONGITUD Longitud del gusano más uno. 
PUNT Puntuación del jugador. 
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CABZ Indice para acceder a las coordenadas de la cabeza del 
gusano. 

XCABZ, YCABZ Coordenadas de la cabeza del gusano. 

OBJX, OBJY Coordenadas de los objetos. 


XDIR, YDIR Cantidad a añadir a las coordenadas cuando se mueve. 
CON Tiempo de movimiento del objeto. 
T Temporal. 


Estructura del programa 


Líneas Función] Actividad 


10-140  Inicializar 

150-300 Bucle principal 
310-520 Pantalla inicial 
530-590 Fin del juego 
600-640 Victoria del jugador 


O | | 
| 
Inicializar el juego 

O; | 
I | 
| | 

o! MODE 1:INK 2,24,17 | 
| INK 1,15: INK 0,0:BORDER O:PAPER O:PEN | 

l 

O | 320 DIM X(250):DIM Y(250) O 
| 40 LONGITUD=4:PUNT=0 
| 50 GOSUB 310 

O | 60 MODE O 0) 
70 FOR T=0 TO 26:INK 1,T:LOCATE 4,10:PRI 1 
| NT"GUSANO.GIGANTE":NEXT T 

O | 80 FOR T=0 TO 1000 STEP 2:SOUND 1,T,1,7, 1 O 
0301: INK 1,(T/SO):NEXT T 
| 90 MODE 1 

O | 100 CAB2=1:XCABZ=20:YCABZ=10 10 
| 110 PEN 3:FOR T=1 TO 40:LOCATE T,1:PRINT 1 
l— CHR$(206):LOCATE T,25:PRINT CHR$(206)3: | 

O 1 NEXT T O 
| 120 FOR T=e TO 24:LOCATE 1,T:PRINT CHR$( | 

O | 206)3+SPACES(38)+CHR$(206) ¿NEXT 1 
| 130 OBJX=5:0BJY=6:XDIR=1:YDIR=0:FOR T=1 ¡O 
| | 
1 1 


TO 4:X(T)=20:Y(T)=10:NEXT T:CON=1 
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O: ¿QO- Qe 0 


O $ 0 49 


O 


Bucle principal del programa 


140 : 

150 X(CABZ)=XCAB2+XDIR:Y(CABZ)=YCABZ+YDI 

R:PEN 1:LOCATE X(CABZ2),Y(CABZ):PRINT CHR 

$ (232) : XCAB2=XCAB2+XDIR: YCAB2=YCABZ+YDIR 
1560 CAB2=CAB2+1: IF CABZ>LONGITUD THEN CA 

B2=1 

170 LOCATE X(CABZ2),Y(CABZ2):PRINT",," 

180 A$=INKEYS$ 

190 IF A$="."THEN XDIR=1:YDIR=0 

200 IF A$=","THEN XDIR=-1:YDIR=0 

210 IF A$="2Z"0R A$="z"THEN YDIR=1:XDIR=0 
220 IF A$="A"OR As$="a" THEN YDIR=-1:XDIR= 

O 

230 CON=CON-1:SPEED INK CON+1,CON+1: 1F C 
ON=0 THEN LOCATE OBJX,OBJY:PRINT", "ELSE 

260 

240 OBJX=RND(1)*37+2:0BJY=RND(1)*22+2:3 1F 
TEST(OBJX*16-4,(26-OBJY)*16-4)>0 THEN 2 

40 ELSE LOCATE OBJX,OBJY:PEN 2:PRINT CHR 
$(233):ENV 1,7,-1,9,)8,-1,40:SOUND 1,300, 
10,)15,1,1,1:PEN 3 

250 CON=SO 

260 IF XCAB2=CINT(OBJX)AND YCABZ=CINT(OB 
JY)THEN CON=1 : PUNT=PUNT+20 :LONGITUD=LONG 
ITUD+4: IF LONGITUD>250 THEN 600 ELSE SOU 

ND 1,478,20,15:FOR T=LONGITUD-4 TO LONGI 

TUD:X(T)=2:Y(T)=2:NEXT T 

270 IF XCAB2<2 OR XCAB2>39 OR YCAB2<2 OR 
YCAB2>24 THEN 540 

280 IF TEST((XCAB2+XDIR)*16-4,(26-(YCABZ 

+YDIR>)*16-4)>0 AND XCABZ<>CINT(OBJX)AND 
YCAB2<>CINT(OBJY)THEN 540 

290 GOTO 150 


Pantalla ¡inicial 


300 : 
310 PRINT" uu QUIERES. INSTRUCCIONES?" 
320 A$=INKEYS$: 1F As$=""THEN 320 


O. O 


GO. 0 00 O 0 Y 


O: 0 
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Or “0 “O -.0 


A E, 


O 0 


O 


O 
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330 IF A$="S"OR A$="s"THEN 340 ELSE RETU 
RN 

340 ELS:¿PRINT" ouniumuns INSTRUCCIONES" 

350 LOCATE 1,8:PRINT", MUEVE, EL,_GUSANO_Au 
TRAVES._DELLALPANTALLA" 

360 INK 1,RND(1)*26 

370 PRINT", Y RECOGE,LOS._OBJETOS,_QUEL_ HAY. 
uSILCHOCAS" 

380 INK 1,RND(1)x*26 

390 PRINT",CONTRAL_TI_MISMO, OL CONTRALEL,.M 
URO>».EL”" 

400 INK 1,RND(1)x*26 

410 PRINT:PRINT", JUEGO, TERMINA. CUANDO, C 
OGESL_UNL_OBJETO" 

420 PRINT:PRINT",DEJAS_UN,_SEGMENTO,,TUYO. 
430 PRINT 

440 INK 1,RND(1)*26 

450 PRINT" uu A? u=L ARRIBA ou 2? FL AB 
AJO" 

460 INK 1,18 

470 PRINT" iu? s+)*uFL IZQUIERDA. ima? +? FL DE 
RECHA" 

480 LOCATE 1,22:PRINT",.,.,.PULSAL UNA, TECLA 
LPARALCONTINUAR" 

490 A$=INKEYS$: IF A$=""THEN 490 

500 INK 1,11 

510 RETURN 


Fin del juego 


520 : 

530 A$=INKEY$: IF A$=""THEN 640 

540 ENT 1,127)122:SOUND 1,200,200,515,151 
550 FOR T=1000 TO 500 STEP-S:LOCATE 405,2 
S:PRINT",,":SOUND 1,T,5,15>38>31>31:NEXT T 
560 MODE O:LOCATE 4,10: INK 2,18,11:PEN e 
:PRINT"FIN,_DEL,JUEGO" 

570 FOR T=1 TO 1000:NEXT T:SPEED INK 10, 
10:PRINT"Puntuacion:";PUNT 

580 A$=INKEY$: IF A$=""THEN 580 ELSE RUN 


O 


Victoria del jugador 


590 : 

£600 PEN e 

610 MODE O:LOCATE 3,7:PRINT"ENHORABUENA" 
:LOCATE 1,10:PRINT"HAS._CONSEGUIDO,_LA":PR 
INT"LONGITUD, MAXIMA, !!":FOR T=500 TO 600 
STEP 5:SOUND O,T,25,)15)0)0,0:SOUND 15,T, 

25,15,1,1,1 

620 SOUND 2,600-T+500,25>)15,031,1:NEXT T 

£30 PRINT"MARCADOR.,=." PUNT; ".!" 

640 A$=INKEYS: IF A$=""THEN 640 ELSE RUN 


Tablas de comprobación 


10 = 546 230 = 535717 450 = 
20 = 1045 240 = 11354 460 = 
30 = 1466 250 = 679 470 = 
40 = 1734 260 = 154559 480 = 
50 = 244 270 = 4673 490 = 
60 = 187 280 = 9035 500 = 
70 = 34939 290 = 340 510 = 
80 = 3419 300 = 0 520 = 
90 = 188 310 = 20e5 530 = 
100 = 2278 320 = 1752 540 = 
110 = 4071 330 = 2320 550 = 
120 = 4079 340 = 1655 560 = 
130 = 6502 350 = 3191 570 = 
14 = O 360 = 938 580 = 
150 = 11109 370 = 2941 590 = 
160 = 3954 380 = 2970 600 = 
170 = 2016 390 = 2707 610 = 
180 = “757 400 = 938 620 = 
190 = 2358 410 = 3020 630 = 
200 = 2601 420 = 2094 640 = 
210 = 3279 430 = 191 
220 = 3474 440 = 970 TOTAL = 


1922 
264 
2157 
2752 
1922 
257 
201 
10) 
1817 
1419 
3913 
2268 
4117 
2i11 
0) 
203 
8124 
2121 
1488 
2171 


171194 
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Mastermind 19 
minotauro 


Intento 1 


Clasificación: 


JUEGO EDUCATIVO 


Este es un juego de estrategia que comprobará el poder mental de, incluso, los más 
experimentados jugadores de MASTERMINOD. El desafío consiste en averiguar un 
número secreto entre O y 1000 andando a través de un laberinto de números y 
símbolos sin ser comido por el minotauro. 

Tu puntuación es la suma de los dígitos que tú pises (y el marcador más bajo es el 
mejor). Cuando alcances la salida a la derecha del final del laberinto, tendrás una 
oportunidad para averiguar el número secreto. Los símbolos no numéricos tienen 
diferentes efectos cuando los pisas. 


“X” — proporciona una clave. 

“)” — tiene un valor aleatorio. 

“x” — altera aleatoriamente tu puntuación. 

Para mover: “P” mueve hacia arriba, “:” mueve hacia abajo, “O” mueve a la 


” 


izquierda, “a” mueve a la derecha, “0” mueve hacia arriba y a la izquierda, “menos 
mueve hacia arriba y a la derecha, “L” mueve hacia abajo y a la izquierda, “;” mueve 
hacia abajo y a la derecha y “T” se pulsa cuando estás atrapado y es imposible 


moverse. 
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SUGERENCIAS DE PROGRAMACION 


El MASTERMIND minotauro podría ser un juego muy complicado añadiendo 
más claves (líneas 1190-1490) y añadiendo más símbolos. 


Variables del programa 


LD Nivel de dificultad. 

R, ES, TS Número de rondas, última puntuación, total puntuación. 
SN Número secreto. 

D1, D2, D3 Dígitos de SN. 

c0Q Para efectos de parpadeo. 

CU Carácter bajo el minotauro. 
CP Carácter bajo el jugador. 

PR, PC Fila y columna del jugador. 
NC Número de claves. 

T(10) Matriz válida: claves usadas. 
G1, G2, G3 Digitos del jugador. 

MR, MC Fila y columna del minotauro. 


Estructura del programa 


Líneas Función] Actividad 


10-100 Inicializar 
120-210 Nueva ronda 
230-400 Editor/bucle principal 
420-740 Reconoce movimientos válidos 
760-860 Verifica movimientos 
880-1060 Mueve minotauro 
1080-1180 Jugador en “?” 
1190-1490 Jugador en “X”. 
1510-1550 Jugador en “*” 
1570-1650 Fin del juego 
1670-1680 Area de borrado de mensajes 
1700-1710 Actualiza puntuación 
1730-1820 Averigua número secreto 
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Inicializar juego 


10 RANDOMIZE TIME 

20 MODE 1:BORDER O: INK Os,O:INK 1,16: INK 

2520: INK 3,24:PAPER O:PEN 2:CLS 

30 PRINT SPACE$(8)3",_MINOTAURO_MASTERMIN 
D" 

40 PRINT:PRINT:PRINT:PRINT"Nivel,de,difi 
cultad,.(1-9)"; 

50 LD=VAL(INKEYS$):1F LD<1 OR LD>9 THEN 5 
O ELSE PRINT LD 

60 SYMBOL AFTER 136:SYMBOL 136,165,126,2 
19,126,102,126,82)60:SYMBOL 144,198,108, 
56,108,198,198,0:SYMBOL 152,)60,108,6,182» 
24,)0,)2450:SYMBOL 14640,0,102,60,255,+60,102 
00: SYMBOL 1685,16,56,124,254,124,56,16, 
(0) 

70 FOR I=1 TO 8:PRINT:NEXT:PRINT SPACES ( 
9);"Pulsa,una, tecla, para,empezar” 

80 IF INKEY$=""THEN 80 

90 DIM SC(405,21) 

100 TS=0:NC=0:FOR I=1 TO 10: T(I)=0:NEXT: 
R=1 :SN=INT(RND(1)*1000) ¿RS=SN:D1=INT(SN/ 
100) :D2=INT((SN-D1*100)/10):D3=INT(SN-D1 
*100-D2*10) 


Nueva ronda 


110 : 

120 CLS:PR=13:PC=2:MR=PR : MC=20 

130 FOR I=1 TO 40:FOR J=S TO 21:SC(1,J)= 
32:NEXT: NEXT 

140 FOR I=2 TO 39:FOR J=6 TO 20:K1=INT(R 
ND(1)*13):LOCATE I,J:PEN 1: IF K1i<10 THEN 
PRINT CHR$(K1+48):SC(1,J>)=kK1+48:GOTO 18 
O 

150 PEN 3: IF K1=10 THEN PRINT CHR$(144): 
SC(1,J>)=144:GOTO 180 

160 IF Ki=11 THEN PRINT CHR$(152):SC(15,J 


O 
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O 


O 
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)=152:G0TO 180 

170 PRINT CHR$(160):S5C(1,J)=160 

180 NEXT:NEXT 

190 SC(PC)PR)=48:LOCATE PC)PR:PEN 1:PRIN 
T"0":LS=0:CU=SC(MC,MR):LOCATE MC,MR:PEN 
2:PRINT CHR$(136):SC(39)PR)=168:LOCATE 3 
9,PR:PRINT CHR$(1468):CP=48 

200 LOCATE 1,1:PRINT"Intento";R;SPACES$(8 
);3"Nivel,, "¿LD 

210 GOSUB 1700 


Editor y bucle principal del programa 


220 : 
230 € = 

240 X KEY$:C=C+1 

250 IF C=7 THEN Q=1-Q:0=0 

260 IF Q<>0 THEN 290 

270 IF SC(PC)PR)=233 THEN SC(PC+PR)=CP:L 
OCATE PC5PR:PRINT CHR$(CP):Q=1:GOTO 290 

280 SC(PC)PR)=233:LOCATE PC>)PR:PRINT CHR 
$(233):0=1 

290 IF X$=""THEN 240 

300 GOSUB 1670 

310 IF X$="t"OR X$="T" THEN 740 

320 IF X+$="p"OR X$="P"THEN 420 

330 IF X$="0"O0R X$="0"THEN 460 


340 IF X$="92"0R X$="¡"THEN 500 
350 IF X$=";"OR X$="+"THEN 700 
360 IF X$="-"ODR X$="="THEN 580 
370 IF X*$="0"ODR X$="_"THEN 620 
380 IF X*$="1"OR X$="L"THEN 660 
390 IF X$=":"OR X$="*"THEN 540 


400 GOTO 240 


Reconoce movimientos válidos 


410 : 
420 IF SC(PC+PR-1)=32 THEN 240 

430 LS=CP-48 

440 SC(PC,PR)=32:LOCATE PC>PR:PRINT",_":P 
R=PR-1 


SA e e e a a e => 


450 GOTO 760 


460 IF SC(PC-1,PR)=32 THEN 240 


470 LS=CP-48 

480 SC(PCy+PR)=32:LOCATE 
C=PC-1 

490 GOTO 760 


PC>PRePRINT",_":P 


500 IF SC(PC+1,PR)=32 THEN 240 


510 LS=CP-48 

520 SC(PC5,PR)=32:LOCATE 
Cc=PC+1 

530 GOTO 760 


PC>PR:PRINT",_":5P 


540 IF SC(PC>)PR+1)=32 THEN 240 


550 LS=CP-48 

560 SC(PC)PR)=32:LOCATE 
R=PR+1 

570 GOTO 760 

580 IF SC(PC+1 ,PR-1)=32 
590 LS=CP-48 

600 SC(PC)PR)=32:LOCATE 
R=PR-1 :PC=PC+1 

610 GOTO 760 

620 IF SC(PC-1,PR-1)=32 
630 LS=CP-48 

640 SC(PC)PR)=32:LOCATE 
R=PR-1 :PC=PC-1 

650 GOTO 760 

660 IF SC(PC-1),PR+1)=32 
670 LS=CP-48 

£80 SC(PC+PR)=32:LOCATE 
C=PC-1 :PR=PR+1 

690 GOTO 760 

700 IF SC(PC+13PR+1)=32 
710 LS=CP-48 

720 SC(PC)PR)=32:LOCATE 
C=PC+1 :PR=PR+1 

730 GOTO 760 


PC>PR:PRINT"._":P 


THEN 240 


PC)PREPRINT"._":P 


THEN 240 


PC>PR:PRINT",_":P 


THEN 240 


PC>PR:PRINT".,":P 


THEN 240 


PC>PR:PRINT",,"2P 


740 GOSUB 880: IF(MR<>PR)OR(MC<>PC)THEN 7 


40 ELSE 1570 


Verifica movimientos 


750 : 
760 CP=SC(PC,PR) 


O. “Or 07 Y 


O 


O 


O. 0 0: 10 “O -0 
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770 1IF(LS>9)OR(LS<1)THEN LS=0 

780 IF CP=152 THEN GOSUB 1050 

790 IF CP=144 THEN GOSUB 1080 

800 IF CP=160 THEN GOSUB 1510 

810 IF CP=168 THEN 1730 

820 K1=CP-48:1F K1<O OR K1>9 THEN K1=0 
830 IF LS+kK1>=10-LD THEN GOSUB 88o 

840 TS=TS+K1:GOSUB 1700 

850 IF(PR=MR)AND(PC=MC)THEN 1570 

860 GOTO 230 


Mueve minotauro 


870 : 

880 Ti=MC: T2=MR 

890 IF MC<>PC THEN 920 

900 IF MR>PR THEN MR=MR-1:GOTO 980 

910 MR=MR+1:GOTO 980 

920 IF MR<>PR THEN 950 

930 IF MC>PC THEN MC=MC-1:GOTO 980 

940 MC=MC+1:GOTO 980 

950 IF MC>PC THEN 970 

960 MC=MC+1:GOTO 980 

970 IF MR<PR THEN MR=MR+1 ELSE MR=MR-1 
980 SC(T1,T2)=CU:LOCATE Ti,T2:1F CU<58 T 
HEN T3=1 ELSE T3=3 

990 PEN T3:PRINT CHR*$(CU) 

1000 CU=SC(MC,MR) 

1010 SC(MC;,MR)=136:LOCATE MCs,MR:PEN 2:PR 
INT CHR$(136) 

1020 SOUND 1,2005,155,15 

1030 RETURN 


O 


O 


Jugador en “”?” 


1040 : 

1050 I=INT(RND(1)*10):SC(PC+PR)=1+48:LOC 
ATE PC5)PR:PEN 1:PRINT CHR$(1I+48) 

1060 CP=1+48: RETURN 
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O 


O- O 1 0 


O 


E O 


Jugador en “X” 


1070 : 

1080 SC(PC),PR)=4B8:LOCATE PC5PR:PEN 1:PRI 

NT"O0":FOR I=1000 TO 200 STEP-100:SOUND 1 
, 1 ,—»8)15:NEXT 

1090 IF NC>=9 THEN 1190 

1100 Ke=INT(RND(1)+*9+1):1F T(K2)=1 THEN 
1100 

1110 T(K2)=1:NC=NC+1 

1120 ON K2 GOTO 1130,1150,1190,1220,1260 
,1270,1340,1360,1410 

1130 LOCATE 45,3:PEN 3:PRINT"La,suma,de,,l 

os.digitos,del,”":LOCATE 44:PRINT"Numero 
usecreto,es,igual,a,”; 

1140 PRINT D1+D2+D3:RETURN 

1150 LOCATE 45,3:PEN 3:PRINT"E1l, numero, se 

creto,es,.”; 

1160 IF SN/2=INT(SN/2)THEN PRINT"par":G0 
TO 1180 

1170 PRINT"impar" 

1180 RETURN 

1190 K=INT(RND(1)*200+5N) :J=K-200: 1F J<O 
THEN J=0 

1200 IF K>1000 THEN K=1000 

1210 LOCATE 45,3:PEN 3:PRINT"E1l,numero,es 
tanentre,";¡J:LOCATE 4,4:PRINT", yu" 3K:RET 
URN 

1220 LOCATE 4,3:PEN 3:PRINT"E]l, rumero,es 


"a 
na 3 


1230 IF SN/S5=INT(SN/S)THEN PRINT"divisib 
le,,”:GOTO 1250 

1240 PRINT"nmo divisible," 

1250 LOCATE 45,4:PRINT"por,_5":RETURN 

1260 L=D1:IF De2>1 THEN L=D8 

1270 IF D3>L THEN L=D3 

1280 LOCATE 45,3:PEN 3:PRINT"El,digito,de 
umaSsivalor,del,,":LOCATE 45,4:PRINT"numero 
usecreto,es,”";L:RETURN 

1290 LOCATE 45,3:PEN 3:PRINT",El,_primerid 
igito,del,numero,,":LOCATE 45,4:PRINT"secr 
eto,es,"; 

1300 IF Di>S THEN PRINT"mayor,que,,5":GOT 


Oo 0 


O. Cb Or. 0 /O- DD. -0- 9 


tQ 
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O: “Q O 2 0 


E 0 -Q 


152 


O 1330 

1310 IF Di<S THEN PRINT"menor,que,,5":GOT 

O 1330 

1320 PRINT"igual,que,s" 

1330 RETURN 

1340 LOCATE 45,3:PEN 3:PRINT"La,suma,del,, 

primer, y.del, tercer," :¿LOCATE 45,4:PRINT"d 

igito,nes,"”; 

1350 PRINT D1+D3:RETURN 

1360 LOCATE 45,3:PEN 3:PRINT"Uno,de,los.d 
igitos,ien,el,":LOCATE 4,4:PRINT"Numero,s 

ecreto,es.”; 

1370 K=INT(RND(1)*3):1F K=0 AND SN>99 TH 

EN PRINT D1:GOTO 1400 

1380 IF K=1 AND SN>9 THEN PRINT D2:GOTO 
1400 

1390 PRINT D3 

1400 RETURN 

1410 LOCATE 45,3:PEN 3:PRINT"el, producto, 

de,los,digitos,que,son":LOCATE 4,4:PRINT 

"idistintos,de,cero,es,”; 

1420 IF Di=0 AND D2=0 THEN PRINT D3:GOTO 
1490 

1430 IF D1=0 AND D3=0 THEN PRINT D2:GOTO 
1490 

1440 IF Di=0 THEN PRINT D2*D3:GOTO 1490 
1450 IF D2=0 AND D3=0 THEN PRINT D1:GOTO 


1490 
1460 IF D2=0 THEN PRINT Dix*D3:GOTO 1490 


1470 IF D3=0 THEN PRINT Dix*D2:GOTO 1490 
1480 PRINT Dix*De2x*D3 
1490 RETURN 


Jugador en “*” 


1500 : 

1510 SC(PC5)PR)=48:LOCATE PC)>)PR:PEN 1:PRI 
NT"O" 

1520 IF TS<11 THEN RETURN 

1530 I=INT(RND(1)*100): IF 1>50 THEN TS=T 
S-10:SOUND 1,3000,55,15: RETURN 

1540 IF I<1i0 THEN TS=TS+50:SOUND 1,40,15 
, 15: RETURN 

1550 TS=TS+10:SOUND 1,200,15,15:RETURN 


O Jl Ek 0 O 


O 


O 0. 9 


O 


Fin del juego 


1560 : 

1570 CLS:IF PR=MR AND PC=MC THEN 1610 
1580 FOR 1=1 TO 17:PRINT SPACE$(9);"Enho 
rabuena!":NEXT:PRINT 

1590 PRINT"Has,vencido,al,minotauro":PRI 
NT"tu,puntuacion,es,”";3TS 

1500 PRINT"en,_";R3",intentos":G0TO 1630 
1610 FOR I=1 TO 17:PRINT SPACES$(4)3"MINO 
TAURO, GANADOR... MINOTAURO, GANADOR": NEXT:P 
RINT 

16420 PRINT"El,numero,secreto,era,,";SN 
1630 PRINT:PRINT"Pulsa,una,tecla,para,ju 
gar,de,nuevo" 

16540 IF INKEY$=""THEN 1640 

16450 RUN 


Mensaje borrado 


1660 : 
1670 LOCATE 1,3:PRINT SPACES$(79) 
1480 RETURN 


Actualizar puntuación 


16590 : 

1700 LOCATE 2,22:PEN 2:PRINT"Tanteo,tota 
1,,"3TS;TAB(21)3"Ultimosipuntos,”3LS; 
1710 RETURN 


Averigua número secreto 


1720 : 

1730 LOCATE 45,3:PEN 3:PRINT"Escribe,el,in 
umero,secreto" 

1740 LOCATE 45,4: INPUT"y,pulsa,ENTER"3Ks*$ 


O 0 O 0 
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1750 I=VAL(K$): IF I=SN THEN 1570 


1810 FOR T-1 TO 2000:NEXT 
1820 R=R+1:GOTO 120 


! ] 

O ? 1760 G1=INT(1I/100):G2=INT((1-G1*100)/10) | O 
] :G3=1-G1*100-G2x*10 I 
1770 CLS:PRINT:IF Di=G1 THEN PRINT"Prime 

O | ridigito,correcto":PRINT 0) 
| 1780 IF D2=G2 THEN PRINT"Segundo,digito., 

l correcto":PRINT ] 

O 1790 IF D3=G3 THEN PRINT"Tercer,digito,c ! O 
l. orrecto" 

E 1800 IF Di1<>G1 AND D2<>Ge AND D3<>G3 THE | 

O ' N PRINT"Ningun,digito,correcto" r O 
| 
1] ' 


Tablas de comprobación 


10 = 519 280 = 3639 550 = 1145 
20 = 1916 290 = 1256 560 = 3505 
30 = 2252 300 = 329 570 = 472 

40 = 2982 310 = 2288 580 = 2552 
50 = 3879 320 = 2183 590 = 1145 
60 = 8579 330 = 2221 600 = 4581 
70 = 4747 340 = 2259 610 = 472 

80 = 1135 350 = 2118 620 = 2553 
90 = 706 360 = 2002 630 = 1145 
100 = 12904 370 = 2079 640 = 4582 
110 = O 380 = 2160 650 = 440 

120 = 2676 390 = 19596 660 = 25592 
130 = 3497 400 = 430 670 = 1145 
140 = 8748 410= 0 680 = 4581 
150 = 3656 420 = 2293 67970 = 440 

160 = 3436 430 = 1145 700 = 2551 
170 = 2017 440 = 3506 710 = 1145 
180 = 353 450 = 440 720 = 4580 
190 = 9764 460 = 2293 730 = 472 
200 = 3006 470 = 1145 740 = 3353 
210 = 359 480 = 3476 7350 = 0 
220 = 0 490 = 440 760 = 1534 
230 = 938 500 = 2292 770 = e2512 
240 = 1695 510 = 1145 780 = 1447 
250 = e365 520 = 3475 790 = 1469 
260 = 1035 530 = 440 800 = 1660 
270 = 3933 540 = 2292 810 = 1442 
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820 
330 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 


on un n344 010 


on 4.4 4 4. $100 


1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 


1400 = 


1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 


A 


1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
16510 
1620 
1630 
16540 
14650 
1660 
1670 
1480 
16590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 


TOTAL = 


1278 
4674 
28897 
20e5 
10) 
2709 
3262 
4876 
2150 
4644 
2688 
3720 
1165 
202 
(0) 
899 
201 
10) 
4861 
201 
O 
3202 
1894 
2342 
6120 
4224 
4029 
3695 
3860 
1387 
1287 


434141 
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Puzzle de 15 20 


Clasificación: 


JUEGO EDUCATIVO 


Utiliza las teclas de movimiento del cursor para colocar los números en orden con 
el mínimo número de movimientos. Pulsa “Q” para terminar el juego. 


Variables del programa 


CARS 

XCOOR(16), YCOOR(16) 
POSICION(16) 

MNUM 

GENS 


GANA 
R1, R2 
ESPACIO 
COL(16) 
CON 
T,A,B,C,D 


Define 16 cadenas de caracteres para los números. 

Coordenadas de cada número. 

Número contenido en cada posición. 

Bandera para mostrar el número movido. 

Bandera para generar el sonido en cada movi- 
miento. 

Te indica que ha ganado si lo genera aleatoriamente. 

Números aleatorios. 

Posición en blanco. 

Colores para cada número. 

Cuenta de movimientos. 

Temporales. 
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Estructura del programa 


Lineas 


Función] Actividad 


O. + O QQ O. 0 


O 


10 


Llamada de inicialización 


20-150 Bucle principal 

160-220 Gana el juego 
230-810  Inicialización carácter/variable 
820-1170  Inicialización pantalla/otros 
1180-1260 Imprime bloques de caracteres 
1270-1280 Fin del juego 


| 
I 
' 
| 
| 
] 
l 
l 
| 
l 
l 
l 
| 
1 
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! 
I 
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I 
l 
| 
| 
| 
l 
] 
| 
| 
1 
l 
l 
1 
1 
í 
| 
l 
l 
I 
] 
| 
I 
] 
l 
I 
l 
| 
] 
1 
] 
1 
| 
l 
l 
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Rutina de llamada de inicialización 


10 GOSUB 230:CON=1 


Bucle principal 


20 : 

30 A$=INKEY$: IF A$=""THEN 30 

40 IF A$="Q"0OR A$="q"THEN 1270 

50 IF MNUM THEN PEN 2:LOCATE 1,1:PRINT"M 
OVIMIENTOS"¿CON 

60 IF ASC(A$)=240 AND ESPACIO>4 THEN POS 
ICION(ESPACIO)=POSICION(ESPACIO-4):POSIC 
ION(ESPACIO-4)=16:ESPACIO=ESPACIO-4:2=PO 
SICION(ESPACIO) : X=XCOOR(ESPACIO) : Y=YCOOR 
(ESPACIO):GOSUB 1180 ELSE 80 

70 Z=POSICION(ESPACIO+4):X=XCODOR(ESPACIO 
+4) : Y=YCOOR(ESPACIO+4):GOSUB 1180 

80 IF ASC(A$)=241 AND ESPACIO<X13 THEN PO 
SICION(ESPACIO)=POSICION(ESPACIO+4):POSI 
CION(ESPACIO+4)=16:ESPACIO=ESPACIO+4:2=P 
OSICION(ESPACIO) : X=XCOOR(ESPACIO): Y=YCOO 
R(ESPACIO):GOSUB 1180 ELSE 100 

90 2=POSICION(ESPACIO-4):X=XCOOR(ESPACIO 
-4) : Y=YCOOR(ESPACIO-4):GOSUB 1180 


O 


O: Ud «8 


O 


O 


100 IF ASC(A$)=242 AND(ESPACIO<>1 AND ES 
PACIO<>S AND ESPACIO<>9 AND ESPACIO<X>13) 
THEN POSICION(ESPACIO)=POSICION(ESPACIO— 
1) :ESPACIO=ESPACIO-1:POSICION(ESPACIO)=1 
6 ELSE 120 

110 Z=POSICION(ESPACIO+1):X=XCOOR(ESPACI 
D+1): Y=YCOOR(ESPACIO+1):GOSUB 1180:2=POS 
ICION(ESPACIO) : X=XCOOR(ESPACIO) : Y=YCOOR ( 
ESPACIO):GOSUB 1180 

120 IF ASC(A$)=243 AND(ESPACIO<>4 AND ES 
PACIO<>8 AND ESPACIO<>12 AND ESPACIO<X>16 
) THEN POSICION(ESPACIO)=POSICION(ESPACIO 
+1) :ESPACIO=ESPACIO+1 :POSICION(ESPACIO)= 
164 ELSE 30 

130 2=POSICION(ESPACIO-1):X=XCOOR(ESPACI 
D-1):Y=YCOOR(ESPACIO-1):GOSUB 1180: 2=POS 
ICION(ESPACIO) : X=XCOOR(ESPACIO) : Y=YCOOR ( 
ESPACIO):GOSUB 1180 

140 CON=CON+1:FOR T=1 TO 16: 1F POSICION( 
T)=T AND GANA=1 THEN NEXT T:GOTO 160 ELS 
E 30 


Gana el jugador 


150 : 

16460 MODE O:SOUND 1,200,100,15,1>,15>1 

170 LOCATE 3,8:PEN 7:PRINT"ENHORABUENA!" 
180 PEN 10:LOCATE 14,10:PRINT"Lo,_consegu 
iste" 

190 PRINT CON;z"MOVIM." 

200 FOR T=1 TO 3000:NEXT T 

210 RUN 


Inicialización carácter y variable 


230 MODE 1 

240 BORDER O 
250 PAPER O 
260 INK 0,0 
270 INK 1,18 


O 


O 


O, 0 0 CO. Q «0 


O” 0 O 20 


159 


O 


O 


160 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
48 
420 
430 
440 
450 
(D) 
460 
470 
480 
490 
500 
510 
3e0 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 


INK 2,15 
INK 3,24 


SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 
SYMBOL 


240,0,101965,795,96,95,95,796 

241 1010,13,1353,3,35,3 
24210,10+99,99,199,99,99,99 
243,)796196,796,196,76,96,96,76 
244,199,1799,199,199199,99,99,799 
245)0,0,248,)248,0,0,05,0 
246,0,0,248,1248,24,24,24,+24 
247,0,10,24,24,)24,24,24,24 
248,248,248,24,24,24,24,24,24 
249,248,248,0,10,0,0,248,248 
250,24,24,24,124,24,24,248,248 
e251,248,248,24,24,24,24,248,2 


DIM CAR$(16) 
FOR T=1 TO 16 


READ A, 


B,C»D 


CAR$ (T )=CHR$ (A) +CHR$ (B)+CHR$ (C)+CHR$ 


NEXT T 


DATA 241,32,209,32 

DATA 32,246,209,249 
DATA 32,246,32,251 

DATA 241,247,32,248 
DATA 241,245,328,2e51 
DATA 241,245,209,e51 
DATA 32,246,32,149 

DATA 241,246,209,e51 
DATA 241,246,32,e51 
DATA 242,246,244,250 
DATA 242,32,244,32 

DATA 240,246,244,249 
DATA 240,246,243,e51 
DATA 242,247,243,248 
DATA 242,245,243,251 
DATA 32,32,32,32 

DIM XCOOR(16),YCOOR(16),POSICION(16) 
FOR T=1 TO 16:POSICION(T)=T:NEXT T 
FOR T=1 TO 4 

FOR N=1 TO 4 

XCOOR (4% (T-1)+N)=N*2+15 
YCOOR (4*(T-1)+N)=T*2+8 


NEXT N: 


PEN e 


NEXT T 


O =Q 


O 


O 


O 


O" ÉL Or ¿O Qee O. O O. O O 


O 


710 PRINT TAB(10)"PUZZLE,,DE,,15" 

720 PEN 1 

730 LOCATE 4,9:PRINT"MUESTRAL_NUM. _MOVIMI 
ENTOS._(S/N),?" 

740 A$=INKEYS$: 1F A$=""THEN 740 

750 IF A$="S"OR A$="s" THEN MNUM=1 

760 PRINT:PRINT TAB(4)5"SONIDO,,(S/N),,?" 
770 A$=INKEYS: IF A$=""THEN 770 

780 IF A$="S"OR A$="s" THEN GENS=1 

790 PRINT:PRINT TAB(4)"GENERACION, ALEATO 
RIAL(S/N),?" 

800 A$=INKEY$: 1F A$=""THEN 800 ELSE IF A 
$="S"OR A$="s"THEN GANA=1 ELSE GANA=0 


Inicialización pantalla y otros 


810 : 

820 MODE 1 

830 FOR T=1 TO 400 STEP 5 

840 MOVE 0,200 

850 DRAW 320,T,RND(1)*2+1 

860 MOVE 639,200 

870 DRAW 321,T,)RND(0)*2+1 

880 NEXT 

890 LOCATE 16,7 

900 PEN 3 

910 PRINT CHR$(214); 

920 FOR T=1 TO 8 

930 PRINT CHR$(143); 

940 NEXT T 

950 PRINT CHR+(215) 

960 LOCATE 165,8 

970 PRINT STRING$(10,CHR$(143)) 

980 LOCATE 16,9 

990 PRINT STRING$(10,CHR$(143)) 

1000 FOR T=10 TO 17:LOCATE 16,T:PRINT CH 
R$(143)+" onu FOHRA$ (143) :NEXT T 

1010 LOCATE 16,18:PRINT CHR$(213); 

1020 PRINT STRING$(8,CHR$(143))¿CHR*+(212 
) 

1030 PAPER 3:PEN O:LOCATE 18,8:PRINT"PUZ 
ZLE":PAPER O:PEN 1 

1040 IF GANA=0 THEN 1130 


O 


O O O O O. O 0 


O 


O 


161 


O O 


O 


162 


1130 


FOR T=1 TO 30 

R1=CINT(RND(1)+*15+1) 
Re=CINT(RND(1)+*15+1) 
D1=POSICION(RI1) 

O2=POSICION(R2) 

POSICION(R1)=08 

POSICION(R2)=01 

NEXT T 

FOR T=1 TO 16: 1F POSICION(T)=16 THE 


N ESPACIO=T ELSE NEXT T 


1140 
1150 


DIM COL(16) 
FOR T=1 TO 16:COL(T>)=CINT(RND(1)+*2+ 


1):NEXT T 


1160 


FOR T=1 TON 16:2=POSICION(T):X=XCOODR 


(T)>:Y=YCOOR(T):GOSUB 1180:NEXT T 


PEN COL (2) 

CON=CON+0.5 

IF GENS THEN PRINT CHR$(7)5 
LOCATE X»,Y 

PRINT LEFTS(CAR$(2)5,2) 
LOCATE X»,Y+1 

PRINT RIGHTS$(CAR$(2)5,2) 
RETURN 


del juego 


LOCATE 1,3:PRINT"adios,por,ahora" 
END 
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Tablas de comprobación 


"on uon on 


O 


ono uo4" 4.4. ._1.o.n.4-./4..14'._.x..4-4084 


Moa AM 


1071 
O 
1781 
2128 
3003 
164186 
6617 
14227 
6620 
13864 
12440 
13796 
12443 
6303 
10) 
1170 
1626 
2246 
1153 
1424 
202 
O 
188 
144 
200 
234 
264 
262 
272 
1610 
9395 
1598 
1795 
1820 
1459 
16500 
1153 
1472 
1981 
1674 
2123 
646 
914 


440 
450 
460 
470 
480 
490 
500 
510 
320 
530 
540 
5350 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 


O LI A 


1157 
3808 


275 
814 


917 
820 


870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 


1020 
1030 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
TOTAL 


O O A 


1493 
176 
275 
204 
828 
895 
257 
401 
770 
276 
1236 
277 
1236 
4027 
1125 
1858 
1998 
1305 
928 
1816 
1817 
1614 
1616 
1615 
1615 
401 
4580 
632 
3506 
5980 
o 
862 
1372 
1576 
672 
1393 
931 
1397 
201 
O 
1989 
152 
259299 
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Mastermind 27 


Figura 
valida 


”m 
ña 
s 
r 
E 
R 
mM 
X 
” 
» 
di 


1 QUE PUEDES HACERLO OTRA UFZ Clasificación: 


JUEGO MEMORISTICO 


El código secreto es una secuencia de cuatro figuras elegidas entre seis. Adi- 
vina el código en menos de ocho intentos y has ganado el juego. 

Un círculo significa que tienes una figura correcta en una posición errónea y un 
círculo coloreado te indica que tienes una figura válida en una posición correcta. 

Utiliza las teclas del “1” al “6” para seleccionar una figura. La tecla “DEL” se usa 
para cambiar las figuras introducidas. 


SUGERENCIAS DE PROGRAMACION 


El juego podría hacerse más difícil incrementando el número de objetos incluidos 
en el código. Alternativamente, si encuentras poco difícil este juego, entonces 
intenta introducir combinaciones extras o crear diferentes niveles de juego. 


Variables del programa 
CARVAL(6) Valores de las figuras 1-6. 
COLS(6) Colores para las figuras. 


RESPD(4) Respuesta en dígitos 1-6. 
RESPCAR(4) Respuesta en valores de caracteres. 
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OPORT(4) Oportunidad del jugador. 
NIVEL, COLUMNA — Nivel (0-6) y columna (0-3). 


CORR Número de figuras correctas en OPORT. 

CORRPOS Número de figuras válidas en las posiciones correctas. 
MENS Cadena de mensaje. 

T(6), IL J Temporales. 


Estructura del programa 


Lineas Función] Actividad 


10-390  Inicializar 
400-460 Editor 
470-520 Verifica la combinación 
530-600 Imprime resultado 
610-640 Imprime mensaje 
650-710 Pierde el juego 
720-760 Gana el juego 


Inicializar el juego 


MODE 1: INK O,13:INK 1,1: INK 2,0: INK 3 


20 PAPER O:BORDER 11:CLS 

30 LOCATE 4,2:PEN 1 

40 GOTO 90 

50 PRINT CHR$(151)>;¿STRING$(7,154)3CHR$ (1 
57) CHR$(10);STRING$(9,8); 

60 PRINT CHR$(149);STRING$(7,32);CHR$(14 
9);CHR$(10);STRING$(9,8); 

70 PRINT CHR$(149);¿STRING$(7,32);CHR$(14 
9)¡CHR$(10);STRING$(9,8); 

80 RETURN 

90 FOR I=1 TO 7:GOSUB SO:NEXT 

100 PRINT CHR$(147)¿STRING$(7,154)3CHR$ ( 
153) 

110 LOCATE 4,2:PRINT CHR$(150);STRING$ (7 
,154)CHR$(156) 

120 PEN 2:LOCATE 2,4 

130 T$=CHR$(10)+CHR$(10)+CHR$(8):PRINT " 


O 
O 
O 
O 


O 


O. ¿O 0 JO 0 
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O: Or ¡Dd 0 


MTS "ACTOS UTM TU TSG ME" TS GU RUGTS; 
"M"53TS53"I"5TS"N"3TS;"D" 

140 PEN 1:FOR I=7 TO 22:LOCATE 22,1:PRIN 
T CHR$(149);SPACE$(7);CHR$(149):NEXT 

150 LOCATE 27,2:PRINT CHR$(150)¿STRING$ ( 
7,3154) ¡CHR$(156) 

1560 LOCATE 27,3:PRINT CHR$(149)¿STRING$ ( 
73132) ¡CHR$(149) 

170 LOCATE 27,4:PRINT CHR$(149);¿STRING$ ( 
7,32) ¡CHR$1 149) 

180 LOCATE 27,5:PRINT CHR$(147);¿STRINGS$ ( 
7,154) ;CHR$(153) 

190 LOCATE 34,7:PRINT "1,=,";¡CHR$(143) 
200 LOCATE 34,10:PRINT "2,=,"3:PEN 2:PRI 
NT CHR$(245):PEN 1 

210 LOCATE 34,13:PRINT "3,=,"3:PEN 3:PRI 
NT CHR$(214):PEN 1 

220 LOCATE 34,16:PRINT "4,=,";CHR$(159) 
230 LOCATE 34,19:PRINT "S.,=,"3:PEN 2:PRI 
NT CHR$(42):PEN 1 

240 LOCATE 34,22:PRINT "6,=,_"3:PEN 3: PR 
INT CHRs$(228) 

250 PEN 1:LOCATE 23,7:PRINT "Figura":LOC 
ATE 23,)8:PRINT "valida" 

260 LOCATE 23,14:PRINT "Figura":*LOCATE 2 
3,15:PRINT "valida" 

270 LOCATE 23,16:PRINT "y":LOCATE 23,17: 
PRINT "Posic.":LOCATE 23,18:PRINT "valid 


280 PEN 2:LOCATE 26,10:PRINT CHR$(230) 
290 LOCATE 26,20:PRINT CHR$(231) 

300 K=1 

310 I=INT(RND(1)*6+1) 

320 IF T(I)<>1 THEN T(I)=1:RESPD(K)=I:RE 
SPCAR(K)=I ELSE 310 

330 K=K+1: IF K<5 THEN 310 

340 CARVAL (1)=143:CARVAL (2) =245: CARVAL (3 
)=214: CARVAL (4)=159: CARVAL (5)=42 : CARVAL ( 
6)=228 

350 FOR I=1 TO 4 

360 RESPCAR (I)=CARVAL (RESPCAR(I)) 

370 NEXT 

380 COLS(1)=1:COLS(2)=2:C0LS(3)=3:COLS(4 
)=1:COLS(5)=2:COLS(6)=3 


O 


O 
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O. 0 :Q 


O 


O 
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Editor 


390 : 

400 IF INKZIY(79)=-1 THEN 420 ELSE IF COL 
UMNA=0 THEN 400 

410 COLUMNA=COLUMNA-1:LOCATE 5+COLUMNA*2 
121-3*NIVEL:PRINT ",,":GOTO 450 

420 X$=INKEY$: IF X$<"1" OR X$>"6" THEN 4 
00 

430 PRINT CHR$(7)3 ¿OPORT (COLUMNA+1 )=CARV 
AL(VAL(X$)):LOCATE S5S+COLUMNA*2,21-3XNIVE 
L:PEN COLS(VAL(X$)):PRINT CHR$(OPORT (COL 
UMNA+1 ) ) : COLUMNA=COLUMNA+1 

440 IF COLUMNA=4 THEN MEN$="Comprobando.,, 
tunrespuesta":GOSUB 610:FOR I=1 TO 1000: 
NEXT:GOTO 470 

450 FOR I=1 TO 100:NEXT:GOTO 400 


Verifica la combinación 


460 : 

470 CORR=0:CORRPOS=0:FOR I=1 TO 4 

480 IF OPORT(1)=RESPCAR(1I) THEN CORRPOS= 
CORRPOS+1 

490 NEXT:FOR I=1 TO 4 

500 IF RESPCAR(1)=0PORT(1) OR RESPCAR(I) 
=OPORT(2) OR RESPCAR(1)=0PORT(3) OR RESP 
CAR(1)=0PORT(4) THEN CORR=CORR+1 

510 NEXT: CORR=CORR-CORRPOS 


Imprime resultado 


520 : 

530 IF CORR=0 THEN 550 

540 PEN 2:FOR I=1 TO CORR:LOCATE 13+1,e1 
—3*NIVEL:PRINT CHR$(230) : NEXT 

550 IF CORRPOS=0 THEN 570 

560 PEN 2:FOR I=1 TO CORRPOS:LOCATE 13+1 
+CO0RR)21-3*NIVEL:PRINT CHR$(231):NEXT 
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570 COLUMNA=0 :NIVEL=NIVEL+1 :MEN$=SPACES$ ( 
35):GOSUB 610:IF CORRPOS=4 THEN 720 

580 IF NIVEL=7 THEN 650 

590 MEN$="Preparado»,,cuando,quieras":G0S 
UB 610:GOTO 400 


Imprime mensaje 


600 : 

610 LOCATE 1,25:PEN 1:PRINT STRING$(38,3 
2) 

620 LOCATE 1,25:PRINT MENS 

£30 RETURN 


Pierde el juego 


640 : 

£650 MEN$="Dtra,vez,sera!":GOSUB 610: FOR 

I=1 TO 2000:NEXT:MEN$="Esta,es,la,respue 
sta,correcta":GOSUB 610 

660 FOR I=1 TO 4:SOUND 1,50-10*1,15,15:P 
EN COLS(RESPD(I)) 

670 LOCATE 26+2*1,3:PRINT CHRs(RESPCAR (I 
)>:NEXT 

680 FOR I=1 TO 2500:NEXT 

690 MEN$="Pulsa,una,tecla,para,otro, jueg 
o'":GOSUB 610 

700 IF INKEY$="" THEN 700 ELSE RUN 


Gana el juego 


710 : 


610 
730 FOR I=1 TO 4:SOUND 1,30-5*1,45,15:PE 
N COLS(RESPD(I)) 
740 LOCATE 26+2*1,3:PRINT CHR$(RESPCAR (I 
)):FOR J=1 TO 400:NEXT:NEXT 
750 MEN$="APUESTO,_ A, QUE, PUEDES, HACERLO,,O 
TRALVEZ":GOSUB 610 
760 IF INKEY$="" THEN 760 ELSE RUN 


Tablas de comprobación 


170 


uo0 


1162 
506 

450 

280 

3147 
2983 
3015 
201 

1428 
2072 
2358 
515 

6590 
3677 
2392 
2231 
2ex32 
2389 
1357 
2169 
2143 
1396 
1978 
1966 
2680 
2481 


270 
280 
290 
300 
310 
320 


330 = 
340 = 


350 
360 
370 
380 
390 
400 
410 
420 
430 


440 = 


450 
460 


470 = 


480 
490 
500 
510 
520 


3185 530 
1385 540 
11650 550 
470 560 
1746 570 
5006 580 
1984 590 
6703 £00 
976 610 
2830 £20 
176 £30 
4802 640 
O £50 
3408 £60 
5093 670 
2920 £80 
11480 £90 
6661 700 
1628 710 
O 720 
2628 730 
4419 740 
1153 730 
10222 760 
2256 

O TOTAL 


no. "'»'4.'uou ono" 


A 


1266 
4459 
1528 
5397 
5484 
1445 
3782 
O 
1360 
889 
201 
10) 
7402 
3820 
2737 
1366 
3916 
1727 
O 
2079 
3814 
4045 
3572 
1787 


198165 


Concentración 22 


TERESA Marcador: O 


selecciona la primera carta 


Clasificación: 


JUEGO MEMORISTICO 


Desafía a tu oponente a una batalla mental. Selecciona dos cartas entre dieciocho 
y, Si tienen el mismo número en el reverso, consigues un punto; si no, se vuelven otra 
vez boca abajo y le das una oportunidad a tu adversario. 

¡Que gane el que mejor memoria tenga! 

Utiliza la letra correspondiente del alfabeto para seleccionar una carta que quieras 
examinar. 


SUGERENCIAS DE PROGRAMACION 


Para facilitar el juego, utiliza un rango de números menor en el reverso de las 
cartas. 

Para hacerlo más difícil, en lugar de tener dos tipos de números del 1 al 9, pon tres 
tipos de números del 1 al 6 y haz que cada jugador elija tres cartas. 

La presentación en pantalla quedaría mejor poniendo más colores a las cartas. 


Variables del programa 


JUGADORS(2) Nombres de los jugadores. 
PUNT(2) Puntuación de los jugadores. 


173 


JUEG Número del jugador en acción. 


ULTCAR Ultima carta examinada. 

CARTX(18), CARTY(18) Coordenadas de todas las cartas. 
TRANSP(18) Qué cartas están boca arriba. 

CARTS, VUELTAS Cadenas para imprimir las cartas. 

LJ Temporales. 

CN Número de carta. 

MN Número de mensaje. 

MENS(4) Mensajes. 

NUMERO(18) Los números en el reverso de cada carta. 


Estructura del programa 


Lineas Función] Actividad 


10-270  Inicializar pantalla inicial 
280-480 Control del editor 
490-560 Gira carta 
570-790 Cartas que coinciden 
800-880 Cartas que quedan 
890-930 Actualiza nombre y puntuación 
940-990 Imprime mensaje 
1000-1070 Fin del juego 


Inicializar el juego 


| 

| 

1 

I 

l 

l 

| 

: 10 MODE 1: INK O,1: INK 1,26: INK 2,9: INK 3 
I 124 

| 20 DIM CARTX(18),CARTY(18),TRANSP(18),NU 
| MERO(18) 

30 FOR I=1 TO 9 
| 

I 

| 

| 

l 

' 

I 

| 

I 

1 

I 

| 

I 

I 

' 

l 

1 


40 J=INT(RND(1)*18)+1: IF NUMERO(J)<>0 TH 
EN 40 ELSE NUMERO(J)=I 

50 K=INT(RND(1)*18)+1: IF NUMERO(K)<>0 TH 
EN 50 ELSE NUMERO(K)=I 

60 NEXT 

70 FOR I=1 TO 18: TRANSP (1)=0:NEXT 

FOR I=1 TO 6:CARTX(1)=1I*6-S:CARTY(1)= 


O 


90 FOR 1=7 TO 12:CARTX(1)=(1-6)*6-5:CART 
Y(1)=7:NEXT 
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O: Dd -O- 


O. E O -D--0 


100 FOR I=13 TO 18: CARTX(1)=(1I-12)*6-5:C 
ARTY(1)=13:NEXT 

110 CART$=STRING$ (5,143) : VUELTAS$=STRING+$ 
(5,206) 

120 PAPER O:CLS:BORDER 1 

130 PEN 1:PRINT TAB(13)3"CONCENTRACION" 
140 LOCATE 1,10: INPUT"Nombre,del, primer, 
jugador";X$:1F X$=""THEN X$="Juanito" 
150 IF LEN(X$)>23 THEN 140 

160 JUGADOR$(1)=X$ 

170 LOCATE 1,13: INPUT"Nombre,del,segundo 
ujugador";X$:1F X$=""THEN X$="Pepito" 
180 IF LEN(X$)>23 THEN 170 

190 JUGADOR$(2)=X$ 

200 LOCATE 1,17:PRINT"Hola,,” ;JUGADOR$(1) 
3".uyu"” y JUGADORS (2); 

210 LOCATE 10,23:PRINT"Pulsar,una,tecla,, 
para,comenzar" 

220 IF INKEY$=""THEN 220 

230 MEN$(1)="Selecciona,la,primera,carta 
":MEN$(2)="Lo,que,ustedimande!" 

240 MEN$(3)="Ahora,selecciona,una,segund 
ancarta":MEN$(4)="Lo,siento,,_NO_HAY_EMPA 
TE!!" 

250 CLS 

260 FOR CN=1 TO 18:GOSUB 810:NEXT 

270 JUEG=2 


Control/Editor 


280 : 

290 IF JUEG=1 THEN JUEG=2:GOSUB 900 ELSE 
JUEG=1 :GOSUB 900 

300 MN=1 :GOSUB 950 

310 X$=INKEYS: IF X$=""THEN 310 

320 IF(X$<"A")OR (X$>"R"AND X$<"a")OR (X 
$>"r")THEN 300 

330 IF X$>"R"THEN ULTCAR=ASC(X$)-96 ELSE 
ULTCAR=ASC(X$)-64 

340 IF TRANSP(ULTCAR)=1 THEN 300 ELSE TR 

ANSP (ULTCAR)=1 : CN=ULTCAR :GOSUB 500 

350 MN=2:GOSUB 950 

360 FOR I=1 TO 1000: NEXT 


o. oO 


O. 0 O O 0 0 O O 0 


O. DO. € 0 


175 


O" 0 QQ 0 


O (O. 7 CO .y 
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370 MN=3:GOSUB 950 

380 X$=INKEY$: IF X$=""THEN 380 

390 IF(X$<"A")OR (X$>"R"AND X$<"a")OR (X 
$>"r")THEN 370 

400 IF X$>"R"THEN CN=ASC(X$)-96 ELSE CN= 
ASC(X$)-64 

410 IF TRANSP(CN)=1 OR ULTCAR=CN THEN 37 
O 

420 TRANSP(CN)=1:GOSUB 500 

430 MN=2:GOSUB 950 

440 FOR I=1 TO 1000:NEXT 

450 IF NUMERO(CN)=NUMERO(ULTCAR)THEN GOS 
UB 580:GOTO 290 

460 MN=4:GOSUB 950 

470 GOSUB 810: TRANSP (CN)=0: CN=ULTCAR :GOS 
UB 810:TRANSP(CN)=0:FOR I=1 TO 1000: NEXT 
480 GOTO 290 


Gira carta 


490 : 

500 PRINT CHR$(7):PEN 2 

510 FOR I=i TO S:LOCATE CARTX(CN),CARTY ( 
CN)+1I-1 

520 PRINT VUELTAS 

530 NEXT 

540 PAPER 2:PEN 3:LOCATE CARTX(CN)+2,CAR 
TY(CN)+2 

550 PRINT USING"++" ; NUMERO(CN) 

560 PAPER O:RETURN 


Cartas que coinciden 


570 : 

580 PUNT (JUEG)=PUNT(JUEG)+10:GOSUB 900:F 
OR I=1 TO 18 

590 FOR J=1 TO S 

600 LOCATE CARTX(I)+5,CARTY(1)+J-1 

610 PEN 3:PRINT CHR$(224) 

620 SOUND 1),4000-220*1+40*J,7,15 


O 


O. O O Or € O “Q-: 6 0 


O 6 O 10 


O: 0D: “O O 


O. O O O 


O 


O 


630 NEXT 

640 FOR J=1 TO 6 

£50 LOCATE CARTX(1)+J-13CARTY(1)+5 
660 PRINT CHR$(224) 

670 NEXT:NEXT 

£80 FOR I=18 TO 1 STEP-1 

690 FOR J=1 TO S 

700 LOCATE CARTX(1)+5,CARTY(1)+J-1 
710 PRINT",," 

720 SOUND 1,220*1-40*J,7,15 

730 NEXT 

740 FOR J=1 TO 6 

750 LOCATE CARTX(1)+J-1,CARTY(1)+5 
760 PRINT",," 

770 NEXT:NEXT 

780 IF PUNT(1)+PUNT(2)=90 THEN 1010 
790 RETURN 


Cartas que quedan 


800 : 

810 PEN 1 

820 FOR I=1 TO 5 

830 LOCATE CARTX(CN)'CARTY(CN)+1I-1 

840 PRINT CARTS$ 

850 NEXT 

860 PAPER 1:PEN 2:LOCATE CARTX(CN)+2,CAR 
TY(CN)+e 

870 PRINT CHR$(64+CN) 

880 PAPER O:RETURN 


Actualizar nombre y puntuación 


890 : 

900 LOCATE 1,19:PEN 3:PRINT SPACES$(23):L 
OCATE 1,19 
910 PRINT JUGADOR$(JUEG) 

920 LOCATE 25,19:PRINT"Marcador :";PUNT(J 
UEG) : 

930' RETURN 


OS Or 707 ¿Oc 10 > TO: CO) TO O 00 O 


O 


O 
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Imprime mensaje 


PEN 3:LOCATE 1,23 
PRINT SPACES$ (35) 
LOCATE 1,23 

PRINT MENS$(MN) 
RETURN 


Fin del juego 


1000 

1010 CLS:PRINT SPACE$(16);5"FIN_DEL,_ JUEGO 
1020 IF PUNT(1)>PUNT(2)THEN X$=JUGADORS$ ( 
1)ELSE X$=JUGADOR$ (2) 

1030 LOCATE 1,10:PRINT"ENHORABUENAL_A..” 3 X 
$ 

1040 LOCATE 1,13:PRINT JUGADOR$(1);5",_,TUL 
PUNTUACION," ¿PUNT (1) 

1050 LOCATE 1,16:PRINT JUGADOR$(2)3",_,TU, 
PUNTUACION," ¿PUNT (2) 

1060 LOCATE 6,22:PRINT"PULSARLUNA,TECLA,, 
PARALOTROL_ JUEGO" 

1070 IF INKEY$=""THEN 1070 ELSE RUN 


Tablas de comprobación 


10 = 1216 110 = 2947 210 = 3507 
20 = 3086 120 = 549 220 = 1275 
30 = 885 130 = 1904 230 = 5821 
40 = 5040 140 = 5467 240 = 6687 
50 = 5053 150 = 1517 250 = 138 

60 = 176 160 = 1209 e60 = 1517 
70 = 2340 170 = 5467 270 = 695 

80 = 4039 180 = 1451 280 = 0 

90 = 4414 190 = 1210 290 = 3473 
100 = 4471 200 = 3006 300 = 923 
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310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 


580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 


ono. 4 4$..oss 4, 4..4..../_.4+ nn 


eso 
860 
870 
eso 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 


"no... sas nn 4. $ 404 4 pNo0 4, 1 Q4. 1 


"on 


TOTAL = 


545 
641 
276 
955 
201 
O 
1764 
4430 
1802 
3094 
3067 
2786 
1459 


203468 
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Clasificación: 


CUENTA ATRAS 


JUEGO 
DE TIEMPO LIMITADO 


e 9 ce» 


Utiliza las siguientes teclas para mover: “,” para mover a la izquierda, “.” para 
mover a la derecha y la barra espaciadora para depositar una bomba o arreglar una 
sección de la carretera. 

Los camiones enemigos son negros y los tuyos son rojos. Eres un saboteador y 
tu misión es impedir que un convoy de camiones enemigos pase sobre ti. La idea es 
colocar bombas de relojería bajo la carretera, moviendo tu barca sobre un río 
subterráneo. 

El problema es que tienes que permitir el paso a tus propios camiones y no puedes 
controlar la mecha de tus bombas. 


SUGERENCIAS DE PROGRAMACION 


Los camiones que caen quedarían mucho mejor si salpicaran e hiciesen ruido al 
golpear el agua. El código para conseguir esto debería estar en la rutina de caída de 
los camiones, líneas 430-500, o bifurcarse a una rutina adicional. 


Variables del programa 


CAMIONX(4) Columnas de los camiones. 
CAMION$ — Cadena para mostrar los camiones. 
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BL$ Cadena vacía para borrar un camión o un hombre. 
CCOLS(4) Color de los camiones. 
UCM, UNC Ultimo camión movido, último camión nuevo. 


BOMBC Columna de la bomba. 

JCOL Columna del jugador. 

HOMB$ Cadena para mostrar el hombre. 

CARR(40) Qué porciones de carretera han sido destruidas. 
BCONT Cuenta de bombas; segundos para la detonación. 
PUNT Puntuación del jugador. 

LJ, TU6) Temporales. 


Estructura del programa 


Líneas Función] Actividad 


10-110 Inicializar 
130-200 Muestra pantalla 
210-270 Bucle principal 
280-310 Movimientos del hombre 
320-420 Movimientos de los camiones 
430-500 Caída de los camiones 
510 Hombre aplastado 
520-610 Explosión de la bomba 
620-700 Explosión del hombre 
710-770 Arreglo de la carretera 
780-800 Actualizar puntuación 
810-830 Decremento cuenta bomba 
840-880 Fin del juego 


Inicializar 


10 MODE 1: INK 0,13: INK 1,0: INK 2,3: INK 3 
1 

, 

20 SYMBOL 240,0,0,0,0,15,25,26,123:SYMBO 

L 241)0,0+0,0,3259+455>173,161 

30 SYMBOL 242,155,187,2559+)248,231,95+63» 

56:SYMBOL 243,173,173,255+0,259129432045 
14 

40 SYMBOL 244,1,19,17,15,753,1,3:SYMBOL 

245,)2)16,259:259,2959,127,163,31 

50 SYMBOL 246,128,200,136,240,224,1792,12 

8,192:SYMBOL 247,64,96,255+299+1299123945,2 


l 
| 
] 
l 
] 
' 
l 
' 
] 
] 
| 
| 
| 
I 
I 
| 
] 
| 
| 
l 
I 
l 
| 
| 
l 


52,248 

60 CAMION$=CHR$ (240) +CHR$ (241 )+CHR$(10)+ 
CHR$ (8) +CHR$ (8) +CHR$ (242) +CHR$ (243) 

70 BL$=",,."+CHR$(10)+CHR$(8)+CHR$(8)+",.,., 
80 HOMB$=CHR$ (244) +CHR$ (246) +CHR$(10)+CH 
R$ (8) +CHR$ (8) +CHR$ (245) +CHR$ (247) 

90 DIM CARR(40),T(16) 

100 FOR I=1 TO 40:CARR(I)=1:NEXT 

110 JCOL=30 


Muestra pantalla 


120 : 

130 PAPER O:CLS:BORDER 13 

140 PEN 1:FOR I=1 TO 40:FOR J=S TO 9:LOC 
ATE I,J:PRINT CHR$(207):NEXT:NEXT 

150 PEN 3:FOR I=1 TO 40:FOR J=13 TO 21:L 
OCATE 1I,J:PRINT CHR$(143):NEXT:NEXT 

1560 LOCATE JCOL>,11:PEN 2:PRINT HOMB$ 

170 BCONT=5:EVERY SO GOSUB 810 

180 GOSUB 780 

190 UCM=1 :UNC=1 :¿CAMIONX(1)=38:CCOLS(1)=1 
:PEN 1:LOCATE 38,3:PRINT USING"2";CAMION 
$ 


Bucle principal del programa 


200 : 

210 GOSUB 280 

220 IF BCONT<O THEN GOSUB 530 

230 IF INKEY(47)>-1 THEN IF CARR(JCOL)=0 
THEN GOSUB 710 ELSE IF BOMBC=0 THEN BOM 

BC=JCOL:PEN 1:LOCATE BOMBC,10:PRINT CHR$ 
(231) 

240 GOSUB 320 

250 IF BCONT>-1 THEN LOCATE 1,24:PEN 3:P 

RINT"CUENTALATRAS:.";BCONT 

260 GOTO 210 


O 


O 


O. O-O O OQ O: O “O O 


O” O 0, O 
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O" 0.0 0. 50 O 0-0 “0 Dd 0: :O 


O 


O 


O 
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Posición y movimientos del hombre 


270 : 

280 IF INKEY(39)>-1 AND JCOL>2 THEN LOCA 
TE JCOL>,11:PRINT USING"8";BL+$: JCOL=JCOL- 
1:LOCATE JCOL,11:PEN 2:PRINT USING"2"”;HO 
MB$ 

290 IF INKEY(31)>-1 AND JCOL<39 THEN LOC 
ATE JCOL,11:PRINT USING"2";BL$: JCOL=JCOL 
+1:LOCATE JCOL>,11:PEN 2:PRINT USING"32"5H 
OMBS$ 

300 RETURN 


Posición y movimientos de los camiones 


310 : 

320 UCM=(UCM MOD 4)+1 

330 IF CAMIONX(UCM)=0 THEN 380 

340 LOCATE CAMIONX(UCM),3:PRINT USING"32" 
¡BL$:CAMIONX(UCM)=CAMIONX(UCM)-1:PEN CCO 
LS(UCM):LOCATE CAMIONX(UCM),3:PRINT USIN 
G"2";¡CAMIONS 

350 IF CAMIONX(UCM)<2 THEN IF CCOLS(UCM) 
=2 THEN LOCATE CAMIONX(UCM),3:PRINT USIN 
G"2";BL$:CAMIONX(UCM)=0 ELSE LOCATE 1,22 
:PRINT"DEJASTELESCAPARLUN. CAMION, ENEMIGO 
u!!”:GOTO 840 

360 I=CAMIONX(UCM): IF CARR(I)=0 AND CARR 
(14+1)=0 THEN 430 

370 RETURN 

380 IF CAMIONX(UNC)>3S THEN RETURN 

390 UNC=UCM:CAMIONX(UCM)=38: IF RND(1)<0. 
S THEN CCOLS(UCM)=1 ELSE CCOLS(UCM)>=2 
400 PEN CCOLS(UCM):LOCATE 38,3:PRINT USI 
NG"2";CAMIONS 

410 RETURN 


Rutina de caída de los camiones 


420 : 
430 J=3: I=CAMIONX(UCM) 


O 30 O Qe O 


O 


O 


440 LOCATE I,J:PRINT USING"2";BL$ 

450 SOUND 1,10*J,105,15 

460 J=J+1:LOCATE I,J:PEN CCOLS(UCM):PRIN 
T USING"2";CAMION$ 

470 IF J<11 THEN 440 ELSE IF I=JCOL OR I 
+1=JCOL OR I-1=JCOL THEN 510 

480 IF CCOLS(UCM)=1 THEN PUNT=PUNT+50: GO 


SUB 780:LOCATE 1,J:PRINT USING"2";BL$:CA 


MIONX (UCM)=0: RETURN 
490 LOCATE 1,22:PRINT"UNO,,DE,,TUS,_CAMIONE 
S.HALSIDOL_DESTRUIDO":GOTO 840 


Hombre aplastado 


500 : 


TO 840 


Rutina de explosión de la bomba 


520 : 

530 IF BOMBC=0 THEN 620 ELSE LOCATE BOMB 
C>10:PRINT",_" 

540 IF BOMBC=1 THEN ST=1 ELSE ST=BOMBC-1 
550 FOR I=ST TO BOMBC+1 

560 FOR J=5 TO 9:LOCATE I,J:PRINT",," :SOU 
ND 1,)0,J»,5>31,1,J 

570 NEXT:CARR(1)=0 

580 NEXT 

590 BCONT=INT(RND(1)*10)+2 

£00 BOMBC=0:RETURN 


Destrucción del hombre 


610 : 

620 FOR I=1 TO 10 

630 FOR J=1 TO 16:T(J)>)=INT(RND(1)x*255):N 
EXT 

640 SYMBOL 244,T(1),T(2),T(3),T(4),T(5)» 


O 


O: O) DO. 1 70 ¿Or 90h ¿Q ¡Qe O 


O 0 


185 


O 


O 


o. oO 


O O Da 


O 


O 
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TES TUPISTEDO 
£50 SYMBOL 246,T1(9),T(10),T(11),T(12),T( 
IV STULAIA TES TELO) 

£60 SOUND 1,0,25,15,1,1,3x*I1 

670 LOCATE JCOL,11:PEN 2:PRINT USING"2"; 
HOMB$ : NEXT 

£80 SYMBOL 244,0,0,0,0,0,0,0,0:SYMBOL 24 
£,0,0,0,0,0,0,0,0:LOCATE JCOL,11:PRINT U 
SING"2." ¿HOMBS 

£90 GOTO 840 


Rutina de arreglo de la carretera 


700 : 

710 IF CARR(JCOL-1)=1 THEN ST=JCOL ELSE 
IF CARR(JCOL+1)=1 THEN ST=JCOL-2 ELSE ST 
=JCOL-1 

720 PEN 1:FOR I=ST TO ST+2 

730 CARR(I)=1 

740 FOR J=> TO 9:LOCATE 15,3 

750 PRINT CHR$(207):NEXT J:NEXT 1 

760 RETURN 


Actualizar puntuación 


770 : 

780 LOCATE 20,24:PEN 3:PRINT"MARCADOR:"; 
PUNT 

790 RETURN 


Decremento cuenta bomba 


800 : 
810 BCONT=BCONT-1 
820 RETURN 


Fin del juego 


830 : 
840 DI:SOUND 1,100,30,15:LOCATE 1,24:PRI 


O 


O 


Or ¿Or O. 0 20). O. “O: 50 0 


OQ. 2 0 


O | NT SPACE$(39):LOCATE 1,24 O 
| 850 PEN 3:PRINT"FIN_DEL. JUEGO, —.PULSA_UN 
; ALTECLALPARA mos INTENTARLO, DE NUEVO" 

O | 860 LOCATE 1,1:PRINT"PUNTUACION: "¿PUNT 
l 
I 
I 


870 IF INKEY$=""THEN 880 ELSE 870 
880 IF INKEY$=""THEN 880 ELSE RUN 


O 


Tablas de comprobación 


10 = 1162 310= O 610 => 9 

20 = 2785 320 = 1652 620 = 897 
30 = 4711 330 = 2019 £30 = 3136 
40 = 3105 340 = 8780 640 = 3424 
50 = 5181 350 = 10648 650 = 3567 
60 = 5791 3560 = 4813 £660 = 1094 
70 = 2880 370 = 201 670 = 2182 
g0 = 5662 380 = 2111 £80 = 3717 
90 = 1153 390 = 6336 690 = 265 
100 = 2187 400 = 2705 700 = O 
110 = 2731 410 = 201 710 = 7762 
120 = O 420 = 0 720 = 2054 
130 = 508 430 = 2044 730 = 986 
140 = 3781 440 = 1573 740 = 1533 
150 = 3761 450 = ee 750 = 1641 
160 = 1503 460 = 3983 760 = 201 
170 = 1336 470 = 5981 770 = O 
180 = 204 480 = 6590 780 = 2006 
190 = 4938 490 = 23442 790 = 201 
200 = O 500 = 0 800 = O 
210 = 214 310 = 1695 810 = 1529 
220 = 1503 520 = O 820 = 201 
230 = 7957 530 = 2633 830 = Oo 
240 = 254 540 = 3163 840 = 1961 
250 = 23834 550 = 1910 850 = 4341 
260 = 400 560 = 2962 860 = 1894 
270 = 0 570 = 1162 870 = 1553 
280 = 7402 580 = 176 geo = 1420 
290 = 7444 590 = 2063 

300 = 201 600 = 951 TOTAL = 209159 
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Cruz de laser 24 


Clasificación : 


JUEGO 
DE TIRO AL BLANCO 


Utiliza las siguientes teclas para mover: “A” para mover el laser hacia arriba, “Z” 
para mover el laser hacia abajo, “,” para moverlo hacia la izquierda, “.” para mover el 
laser hacia la derecha y la barra espaciadora para disparar. 

Olas de naves guardianas intentarán destruir tu planeta mediante la destrucción 
de uno de los tres acumuladores de energía de tu laser. 

La nave nodriza abastece de energía a las naves enemigas y si la destruyes sumarás 


más puntos. 


SUGERENCIAS DE PROGRAMACION 


Podrán añadirse muchas naves guardianas, pero tienes que actualizar las rutinas 
de “Posición de las naves guardianas”, “Disparos de alerta” y “Destrucción de naves 
guardianas”. 


Variables del programa 
ENEMEX(4), ENEMY(4) Coordenadas de las naves. 


PFIL, PCOL Punteros de filas y columnas. 
EFASE(4) Fase de cada nave. 
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ETIPO(4) Tipos de naves. 
ENEM$(2,4) Cadenas representando las naves. 


PUNT Puntuación del jugador. 
TM Tiempo transcurrido. 

DEST Número de naves destuidas. 
COLS Colores de las naves. 

I Temporal. 


Estructura del programa 


Líneas Función] Actividad 


10-90 Inicializar 
100-200 Muestra pantalla y bucle principal del programa 
210-290 Mueve punteros 
300-370 Rutina de disparo 
380-440 Control de las naves 
450-530 Le dio al jugador 
540 Actualizar tiempo 
560-580 Fin del juego 


Inicializar juego 


| 
| 
] 
| 
I 
1 
| 
i 
| 
| 
10 MODE 1:INK O,O:INK 1,13:INK 2,6:INK 3 | 
¿24 | 
20 SYMBOL 240,255,255,255,255,126,60,24, | 
24: SYMBOL 241,24,24,60,126,255,255,255,2 | 
55 
l 
30 SYMBOL 242,15,31,63,255,255,63,31,15: 1 
| 
l 
l 
| 
| 
| 
| 
| 
| 
| 
| 
i 
] 
] 
| 


O 
O 
O 
O 
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SYMBOL 243,240,248,252)29592599,2852 248,2 
40 

40 SYMBOL 244,8,24,24,254,127,24,)24,16:S 
YMBOL 245,131,194,36,24)24,36)67,193 

SO SYMBOL 246,24,24,56,)216,216,56,24,024: 
SYMBOL 247,24,)24,36)25912579)0,0,)0 

60 SYMBOL 248,24,24,28,27+27,)28,24,04:5Y 
MBOL 249,0,0,0,259)299:136,)24,24 

70 FOR I=1 TO 4:ENEMS$(1),1)=CHR$(245+1):N 
EXT 

80 ENEM$(2,1)=CHR$(244) :ENEM$ (2,2) =CHR$ ( 


O" 0 TO. 70 


O 0. 0 


O 


O” O. € 0. GQ O ¿O 0 


O 


245) :ENEMS$ (2, 3) =CHR$ (244) ¿ENEMS$ (254) =CHR 
$(245) 


Muestra pantalla y bucle principal del programa 


90 : 

100 BORDER O:PAPER O:CLS 

110 PFIL=12:PCOL=20 

120 TM=60:EVERY 5O GOSUB 540 

130 MOVE 17,383:DRAW: 17,17,1:DRAW 623,17 
»1:DRAW 623,383,1:DRAW 17,3835,1 

140 DRAW 0,399,1:MOVE O,O:DRAW 17,175,1:M 

OVE 623,17:DRAW 639,0,1:MOVE 623,383: DRA 
W 5640,400,1:PEN 1 

150 LOCATE PCOL,1:PRINT CHR$(240):LOCATE 
PCOL,)25:PRINT CHR$(241):LOCATE 1,PFIL:P 

RINT CHR$(243):LOCATE 40,PFIL:PRINT CHR$ 
(242) 

150 GOSUB 210 

170 IF INKEY(47)>-1 THEN GOSUB 300 

180 GOSUB 380 

190 GOTO 160 


Mueve punteros 


200 : 

210 IF INKEY(69)=-1 OR PFIL<3 THEN 230 
220 LOCATE 1,PFIL:PRINT",,"":LOCATE 40,PFI 
L:PRINT".":PFIL=PFIL-1:PEN 1:LOCATE 1,PF 
IL:PRINT CHR$(243):LOCATE 40,PFIL:PRINT 
CHR$ (242) : RETURN 

230 IF INKEY(71)=-1 OR PFIL>23 THEN 250 
240 LOCATE 1,PFIL:PRINT",,":LOCATE 405,PFI 
L:PRINT",">PFIL=PFIL+1:PEN 1:LOCATE 1,PF 
IL:PRINT CHR$(243):LOCATE 40,PFIL:PRINT 
CHR$ (242) ¿RETURN 

250 IF INKEY(39)=-1 OR PCOL<3 THEN 270 
260 LOCATE PCOL,1:PRINT",,":LOCATE PCOL,e 
S:¿PRINT",,":PCOL=PCOL-1:PEN 1:LOCATE PCOL 
»1:PRINT CHR$(240):LOCATE PCOL,25:PRINT 
CHR$ (241 ) ¿RETURN 


O 


o.0 O 


O. 00 +0: -O 00 O. QQ 


O. 0 
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¿0 ¿E 20 GE .-.O (O' 0. 1 0 QQ. 


O 


O 
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270 IF INKEY(31)=-1 OR PCOL>38 THEN RETU 
RN 

280 LOCATE PCOL,1:PRINT",,":LOCATE PCOL,e 
S:¿PRINT",,":PCOL=PCOL+1:PEN 1:LOCATE PCOL 
»1:PRINT CHR$(240):LOCATE PCOL,25:PRINT 
CHR$ (241 ) ¿RETURN 


Disparos del laser 


290 : 

300 MOVE 1£x*PCOL-8,18:DRAW 16*PCOL-8,381 
»3:MOVE 18,407-16*PFIL:DRAW £21,407-16x*P 
FIL,3 

310 SOUND 1,500,10,15 

320 DEST=0:FOR I=1 TO 4: IF EFASE(I)>O AN 
D ENEMX(1)=PCOL AND ENEMY(1)=PFIL THEN D 
EST=I1 

330 NEXT 

340 IF DEST THEN GOSUB 480 ELSE PUNT=PUN 
T-10 

350 MOVE 16x*PCOL-8,18:DRAW 16x*PCOL-8,381 
)»O:MOVE 18,407-16x*PFIL:DRAW 6521,407-16x*P 
FIL,O 

360 RETURN 


Control de las naves 


370 : 

380 IF RND(1)<0.6 THEN RETURN 

390 FOR I=i TO 4:1F EFASE(1)<>0 THEN EFA 
SE(1I)=(EFASE(I)MOD 4)+1:GOSUB 450: IF RND 
(1)<0.01 THEN COLS(1I)=INT(RND(1)*2)+2:GO 
TO 410 ELSE 410 

400 IF RND(1)>0.05 OR I=DEST THEN 410 EL 
SE ENEMX(1)=INT(RND(1)+36)+3:ENEMY (1)=IN 
T(RND(1)*21)+3:EFASE(1)=1:ETIPO(1)=INT(R 
ND(1)*2)+1:COLS(1)=INT(RND(1)*2)+2:GOTO 

420 

410 IF RND(1)<0.02 AND EFASE(I)<>0 THEN 

EFASE(1)=0:LOCATE ENEMX(1),ENEMY(1I):PRIN 
E 


O. Y 


O 00 0 € 710 756 CO O 


O. 0.00 


O 
O 
O 
O 


' 
| 
| 
' 
l 
l 
l 
| 
| 
| 
| 
| 
| 
l 
l 
| 
l 
| 
| 
l 
| 
| 
] 
] 
' 
l 
| 
l 
1 
| 
l 
I 
| 
l 
| 
| 
I 
l 
1 
l 
' 
l 
I 
l 
l 
| 
l 
| 
l 
| 
| 
I 
| 
| 
l 
I 
] 
| 
| 
l 
| 
| 
l 
l 
| 
| 
I 
| 
' 
I 
| 
l 
l 
l 
| 
| 


420 NEXT 
430 RETURN 


Dibujo de las naves 


440 : 

450 PEN COLS(I):LOCATE ENEMX(1) ENEMY (1) 
:PRINT ENEMS(ETIPO(I))EFASE(CIT)) 

460 RETURN 


Rutina de acierto 


470 : 

480 LOCATE ENEMX(DEST) ,ENEMY(DEST):PRINT 
AS :SOUND 1 10,50, 15, 1 , 1 31 

490 IF COLS(DEST)=3 THEN LOCATE 10,10:PR 
INT"DESTRUISTE,TULPROPIALNAVE":GOTO 560 
500 PUNT=PUNT+10*ETIPO(DEST) 

510 EFASE(DEST)=0 

520 RETURN 


Actualizar tiempo 


530 : 
540 TM=TM-1:1F TM>O THEN RETURN 


Fin del juego 


5590 : 

560 LOCATE 1,1:PEN 3:PRINT",,FIN,,DEL,JUEG 
O, PUNTUACION: "¡PUNT 

570 IF INKCY$=""THEN 580 ELSE 570 

580 IF INKEY$=""THEN 580 ELSE RUN 


O “Q ¿Qe E O O 75 E 50 9 


O 
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Tablas de comprobación 


194 


1199 
4558 
4836 
3317 
3263 
2833 
3238 
5719 
10) 
484 
1444 
1078 
2176 
3133 
£e12 
399 
1546 
314 
350 
O 


210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 


A LL O O O A 


2705 410 
67965 420 
27559 430 
6964 440 
2303 450 
6949 460 
2494 470 
6948 480 
O 490 
5742 500 
3542 510 
7734 520 
176 530 
3022 540 
5736 550 
201 560 
O 570 
1902 580 
10043 

14404 TOTAL 


ono 4 4.) '.ún oa ano» 4 4-4 4008 


non. "uo$" 


6208 
176 
201 
O 
5827 
201 
10] 
3397 
4370 
2752 
1276 
201 
o] 
22595 
[0] 
3148 
1367 
1479 


1645942 


Obstáculos 25 


a 
de 
cl 
cl 
A 
e 
de 
ES 


Clasificación: 


JUEGO DE EVASION 


Utiliza “A” y “Z” para mover (arriba y abajo, respectivamente) a través del curso 
de los obstáculos. 

Tu meta es alcanzar la parte inferior en el mejor tiempo posible, evitando las 
prensas y láseres del camino. En la última serie de prensas, sólo necesitas moverte un 
paso bajo los láseres y descenderás todo el camino. 


SUGERENCIAS DE PROGRAMACION 


Para hacer más difícil el juego puedes incrementar el número de láseres o el 
número de prensas. Para hacerlo casi imposible incrementa ambos. 


Variables del programa 


TM Tiempo. 
FASE Fase alcanzada por el hombre (1-3). 
HFIL Fila del hombre. 


LASER(10) Contador de tiempo de cada laser. 
LASFIL(10) Fila de cada laser. 
PRS(5) Serie superior de prensas. 
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BCOLP(S) Columnas (izquierda y derecha). 

PRI(3) Serie inferior. 

COLPREN(3) Columnas de prensas (izquierda y derecha). 
FPRENS(5) Fila de prensas superior. 

FPRENI(3) Fila de prensas inferior. 


DIRS(5) Direcciones de las prensas superiores. 
DIRI(3) Direcciones de las prensas inferiores. 
LJ,K Temporales. 


Estructura del programa 


Lineas Función] Actividad 


10-120  Inicializar 
130-230 Bucle principal del programa 
240-320 Disparo de láseres 
330-540 Movimientos de las prensas 
550 Actualizar tiempo 
560-610 Fin del juego 


Inicializar juego 


| | 
' | 
| l 
O; 
I 10 MODE 1:INK O,OzINK 1+6:INK 2,11: INK 3 | 
| 124 | 
O |. 20 FOR 1=1 TO 10:LASFIL(1)=8+1:NEXT 0 
|. 30 FASE=1:MFIL=2 
| 40 FOR I=1 TO S:FPRENS(I)=3+1:PRS(I)=1S: 1 
O 1 BCOLP(I)=24:DIRS(1)=1:NEXT LO 
l-—50 FOR I=1 TO 3:FPRENI(1)=17+2x1:PRI(I)= 1 
Do 15: COLPREN(I)=24:DIRI(1)=1:NEXT i 
O 1 60 PAPER O:CLS:BORDER O ¡O 
| 70 EVERY 50 GOSUB 550 
O | 80 PEN 2:FOR I=1 TO 10:LOCATE 1,LASFIL(I | 
l ):+PRINT CHR$(246):LOCATE 40,LASFIL(1):PR | O 
Il INT CHR$(247) :NEXT | 
O ! 90 FOR I=1 TO S:FOR J=1 TO 14:LOCATE J+F 1 y 
| PRENS(I):PRINT CHR$(154):LOCATE J+24,FPR | 
| ENS(I):PRINT CHR$(154):NEXT:NEXT ] 
O | 100 FOR I=1 TO 3:FOR J=1 TO 14:LOCATE J, | y 
l FPRENIC(I):PRINT CHR$(154):LOCATE J+24,FP | 
| RENIC(I):PRINT CHR$(154):NEXT:NEXT | 
O | 110 PEN 1:LOCATE 20,MFIL:PRINT CHR$(249) 1 Q 


O 


O O E "DO 70 O 0720 9 


O 


Bucle principal del programa 


120 : 

130 IF INKEY(69)=-1 OR MFIL<3 THEN 140 E 
LSE LOCATE 20,MFIL:PRINT",,":MFIL=MFIL-1: 
IF TEST(304,407-16x*MFIL)<>0 THEN 570 ELS 
E PEN 1:LOCATE 20,MFIL:PRINT CHR$(249) 
140 IF FASE=3 THEN 150 ELSE IF INKEY(71) 
=-1 OR MFIL>18 THEN 160 

150 LOCATE 20,MFIL:PRINT",,":MFIL=MFIL+1: 
IF TEST(304,407-16x*MFIL)<>0 THEN 570 ELS 

E PEN 1:LOCATE 20,MFIL:PRINT CHR$(249): 1 
F MFIL>24 THEN 570 

160 FASE=-(MFIL>1)-(MFIL>8)-(MFIL>18) 
170 PEN 1:LOCATE 1,1:PRINT"TIEMPO:,,";TM 
180 IF FASE<>1 THEN 200 ELSE I=INT(RND(1 
)*5)+1:GOSUB 330 

190 FOR K=1 TO 3:I=INT(RND(1)*5)+1 :GOSUB 
330:NEXT 

200 IF FASE=2 THEN GOSUB 240 

210 IF FASE>1 THEN FOR K=1 TO 5: I=INT(RN 
D(1)*3)+1:GOSUB 330:NEXT 

220 GOTO 130 


Disparo de láseres 


230 : 

240 FOR I=1 TO 10:J=INT(RND(1)*10)+5 

250 IF LASER(I)<O THEN LASER(1)=0:MOVE 1 
73407-16x*LASFIL(1):DRAWR £605,0,0 

260 IF LASER(I)=0 THEN IF RND(1)<0.9 THE 
N 310 ELSE LASER(I)=J:PEN 3:LOCATE 1,LAS 
FIL(I):PRINT CHR$(246):LOCATE 4O,LASF IL ( 
I):PRINT CHR$(247):GOTO 310 

270 LASER(I)=LASER(1)-1:1F LASER(I)>0 TH 
EN 310 

280 PEN 2:LOCATE 1,LASFIL(I):PRINT CHR$( 
246): LOCATE 40,LASFIL(1):PRINT CHR$(247) 
¿MOVE 17,497-16x*LASFIL(1) 

290 SOUND 1,400,10,15:DRAWR £05,05,3 


O 


O O) O O. O 0-0. 1% 10 207 O “0 -0--0 0 
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O 


O 


o oO 


O. 0 0-0 0 y 


O 


200 


300 LASER(1)=-1:1F LASFIL(1I)=MFIL THEN 5 
70 
310 NEXT:RETURN 


Movimientos de las prensas 


320 : 

330 IF FASE=1 THEN 440 

340 PEN 2:LOCATE PRI(I)>),FPRENI(I):IF DIR 
1(1)=1 THEN PRINT CHR$(154)ELSE PRINT",,” 
350 LOCATE COLPREN(I),FPRENI(I):1F DIRI(C 
1)=1 THEN PRINT CHR$(154)ELSE PRINT",," 
360 IF DIRI(I)=-1 THEN 400 ELSE IF PRI(CI 
)=19 THEN IF FPRENI(1)=MFIL THEN 570 ELS 
E DIRI(1)=-1:GOTO 380 

370 PRI(1)=PRI(I)+DIRI(1I):COLPREN(I)=COL 
PREN(1)-DIRI(I) 

380 LOCATE PRI(1I),FPRENI(1I>):PRINT CHR$(1 
43):LOCATE COLPREN(I),)FPRENI(I):PRINT CH 
R$(143) 

390 RETURN 

400 IF PRI(1)=15 THEN DIRI(1)=1:GOTO 420 
410 PRI(I>)=PRI(I)+DIRI(I):COLPREN(I)=COL 
PREN(1)-DIRI(I) 

420 LOCATE PRI(I),FPRENI(1):PRINT CHR$(1 
43):LOCATE COLPREN(I),FPRENI(I):PRINT CH 
R$ (143) 

430 RETURN 

440 PEN 2:LOCATE PRS(I)>)FPRENS(I):1F DIR 
S(I)=1 THEN PRINT CHR$(154)ELSE PRINT",," 
450 LOCATE BCOLP(I),FPRENS(I):IF DIRS(I) 
=1 THEN PRiNT CHR$(154)ELSE PRINT",,"” 

460 IF DIRS(I)=-1 THEN 500 ELSE IF PRS(I 
)=19 THEN IF FPRENS(I)=MFIL THEN 570 ELS 
E DIRS(I)=-1:GOTO 480 

470 PRS(I)=PRS(1)+DIRS(I):BCOLP(I)=BCOLP 
(I)-DIRS(CI) 

480 LOCATE PRS(I)>,FPRENS(1):PRINT CHR$(1 
43):LOCATE BCOLP(1),FPRENSC(I):PRINT CHR$ 
(143) 

490 RETURN 

500 IF PRS(1)=15 THEN DIRS(1)=1:GOTO 520 
510 PRS(1)=PRS(1)+DIRS(1):BCOLP(1)=BCOLP 


O. ¿0 O: :6- O: Y 


O 


O 


(1)-DIRS(I) 


2 520 LOCATE PRS(1),FPRENS(I)>:PRINT CHR$(1 
43):LOCATE BCOLP(I),FPRENS(I):PRINT CHR$ 
O (143) 
530 RETURN 


I 
1 
l 
| 
| 
| 
l 
| 
| 
| 
l 
| 
| 
| 
| 
l 
l 
] 
l 
l 
] 
] 
l 
l 
| 
l 
| 
| 
I 
| 
I 
' 
I 
| 
| 
] 
1 
' 
l 
l 
l 
l 
| 
l 
l 


Actualizar tiempo 


540 : 
550 TM=TM+1:RETURN 


O: 10 -Q. O QQ 0 


Fin del juego 


560 : 

570 LOCATE 15,1:PRINT"FIN,_DEL, JUEGO. -—._PU 
NTUACION=,,"¡MFIL*10-TM*2-100*(MFIL>23) 
580 FOR I=1 TO 1500:NEXT 

590 IF MFIL>23 THEN LOCATE 1,2:PEN 3:PRI 
NT "ENHORABUENA! ! !.,,- ERES. EL, GANADOR" 

£600 IF INKEY$=""THEN 610 ELSE 600 

610 IF INKEY$=""THEN 610 ELSE RUN 


Tablas de comprobación 


10. “13597 140 = 4197 270 = 3762 
20 = 2769 150 = 8247 280 = 6116 
30 = 1375 160 = 3750 290 = 1051 
40 = 5818 170 = 1683 300 = 3448 
50 = 6236 180 = 36533 310 = 378 
60 = 548 190 = 3069 320 = 0 

70 = 557 200 = 1636 330 = 1389 
80 = 5405 210 = 4370 340 = 4735 
90 = 6825 220 = 320 350 = 4795 
100 = ¿4803 230 = O 360 = 7437 
110 = 1799 240 = 2760 370 = 5708 
120 = O 250 = 4923 380 = 5367 
130 = 9737 260 = 9324 390 = 201 


202 


400 
410 
420 
430 
440 
450 
460 
470 


2816 
5708 
3367 
201 

4765 
4652 
72677 
5422 


480 
490 
500 
510 
520 
530 
540 
550 


"o(Mob.uon 


560 
570 
580 
590 
600 
610 


TOTAL 


5418 
1290 
4024 
1427 
1509 


212081 


Clasificación: 


JUEGO 
DE TIEMPO LIMITADO 


Ayuda al hambriento caimán a encontrar comida guiándolo a las plantas, a los 
exóticos peces y al delicioso pez amarillo. El caimán debe comerse todos los peces 
amarillos y alcanzar la parte derecha de la pantalla dentro de un tiempo límite. 

Si olvidas que los caimanes no pueden estar bajo el agua mucho tiempo, entonces 
el pobre se ahogará. Recuerda mirar de vez en cuando la capacidad de aire situada en 
la parte superior de la pantalla y procura que no se coma las minas. 

Utiliza la “A” para mover hacia arriba, “Z” para mover abajo y “.” para mover a 
la derecha. 


SUGERENCIAS DE PROGRAMACION 
¿Qué ocurriría si el caimán tuviese grandes pulmones? Incrementa el valor de 


SEG. El juego podría hacerse bastante más complicado cambiando aleatoriamente 
las minas por peces o haciendo invisibles las minas por poco tiempo. 


Variables del programa 


NR Número de intentos. 
FASE Fase del caimán (1 o 2). 
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CAIMANS(2) Cadenas para mostrar el caimán. 


BL$ Cadena para borrar el caimán. 

PUNT Puntuación del jugador. 

SEG Segundos transcurridos antes de que se ahogue el 
caimán. 

TPO Tiempo global que queda en este intento. 

CAIMANX, CAIMANY Coordenadas del caimán. 

NPEZA Número de peces amarillos. 

IL, J, T1 Temporales. 


Estructura del programa 
Líneas Función] Actividad 


10-120  Inicializar 
130-270 Nuevo intento 
280-400 Bucle principal 
410-510 Verifica las colisiones 
520-560 Respiración del caimán 
570-600 Pez exótico comido 
610-650 Pez amarillo comido 
660-710 Mina comida 
720-750 El caimán se ahoga 
760-790 Fin del tiempo 
800-830 Actualizar capacidad y tiempo 
840-860 Actualizar puntuación 
870-890 Decremento de la capacidad y tiempo 
900-920 Anima caimán 
930-980 Fin del juego 


Inicializar el juego 


] 

| 

] 

| 

| 

' 

| 

1 

' 

10 MODE 1: INK 0,14: INK 1,0: INK 2,12: INK O 

3,1:SYMBOL AFTER 231 
! 

| 

| 

l 

| 

| 

| 

| 

| 


20 SYMBOL 240,0,0,0,0,192,96,96,119:SYMB 
OL 241,63,63,31,15,24,48,48,0 


30 SYMBOL 242,0,0,0,0,0,1,2)180:SYMBOL e O 
43,248,255,240,224,96,192,796,48 
O 40 SYMBOL 244,0,0,0,128,1792,192,96,119:S O 


O 


YMBOL 245163,63,31,19,24+48,97,97 
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SO SYMBOL 246,0,05050,0,0,16,184: SYMBOL 
247,255)255,240,224,796,192,128,128 

60 SYMBOL 249,129,90,160,231,60,90,129,0 
70 SYMBOL 248,128,196,110,63,63,110,176, 
128 

80 SYMBOL 231,129,60,126,255,2559,126,605 
129 

90 CAIMAN$ (1 )=CHR$ (240) +CHR$ (242) +CHR$ ( 1 
O0)+STRING$(2,8)+CHR$ (241 )+CHR$(243) 

100 CAIMANS$ (2) =CHR$ (244) +CHR$ (246) +CHR$ ( 
10)+STRING$(2,8)+CHR$ (245) +CHR$ (247) 

110 BL$=CHR$(32)+CHR$ (32)+CHR$(10)+STRIN 
G$ (2,8) +CHR$ (32) +CHR$ (32) 


Nuevo intento 


120 : 

130 PAPER O:CLS:BORDER 14 

140 NPEZA=0 : NR=NR+1 

150 FOR I=3 TO 38:FOR J=6 TO 24 

160 K=RND(1): IF K<0.015 THEN PEN 1:LOCAT 

E I,J:PRINT CHR$(231):G0OTO 190 

170 IF K<0.035 THEN PEN 3:LOCATE I,J:PRI 

NT CHR$(249):GOTO 190 

180 IF K<0.045 AND NPEZA<7 THEN PEN 2:L0O 

CATE 1,J:PRINT CHR*$(248) :NPEZA=NPEZA+1 
190 NEXT:NEXT 

200 PEN 3:FOR I=1 TO 40:LOCATE I,5:PRINT 
CHR$ (154): NEXT 

210 LOCATE 1,1:PRINT"MARCADOR:"¿PUNT:LOC 

ATE 20,1:PRINT"TIEMPO:,,60" 

220 LOCATE 1,3:PRINT"AIRE:.,":PEN 1 

230 FOR I=7 TO 22-NR:LOCATE 1,3:PRINT CH 

R$(143): NEXT 

240 SEG=15-NR: TPO=460 

250 CAIMANX=1:CAIMANY=15:PEN 1:LOCATE CA 
IMANX ,CAIMANY:PRINT USING"32";5CAIMAN$(1): 

FASE=1 

260 EVERY 30,1 GOSUB 900:EVERY 50,2 GOSU 
B 870 


O 


O 


O- O 0 ¿0 4 “O ¿9 10 20 700 O «1 O 
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o. O 


O. 0 


O O. DD -O 0.0 0 y 


o.0o0 O 


O 
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Bucle principal del programa 


270 : 

280 LOCATE CAIMANX,CAIMANY:PEN 1:PRINT U 
SING"2";CAIMANS$S(FASE) 

290 IF INKEY(69)=-1 OR CAIMANY<6 THEN 32 
0) 

300 LOCATE CAIMANX»CAIMANY:PRINT USING"2 
"sBL$:CAIMANY=CAIMANY-1:GOSUB 410 

310 IF CAIMANY<6 THEN GOSUB 520 

320 IF INKEY(71)=-1 OR CAIMANY>23 THEN 3 
40 

330 LOCATE CAIMANX,CAIMANY:PRINT USING"2 
";BL$:CAIMANY=CAIMANY+1:GOSUB 410 

340 IF INKEY(31)=-1 THEN 370 

350 LOCATE CAIMANX,CAIMANY:PRINT USING"3. 
"sBL$:CAIMANX=CAIMANX+1:GOSUB 410 

360 IF CAIMANX>38 THEN CLS:IF NPEZA>0O TH 

EN LOCATE 1,3:PRINT"HASL_OLVIDADO,_ ALGUNOS 
"PECES. AMARILLOS" :GOSUB 840:GOTO 930 ELS 

E PUNT=PUNT+100:GOTO 130 

370 IF SEG<1 THEN 720 ELSE IF TPO<1 THEN 
760 

380 GOSUB 800 

390 GOTO 280 


Verificar colisiones 


400 : 

410 Ti=TEST(CAIMANX*165-16,415-16*CAIMANY 
) 

420 IF Ti=1 THEN 660 ELSE IF Ti=2 THEN G 
OSUB 610 ELSE IF Ti=2 THEN GOSUB 570 

430 Ti=TEST(CAIMANX*x165,415-16*CAIMANY ) 
440 IF Ti=1 THEN 6460 ELSE IF Ti=2 THEN G 
OSUB 610 ELSE IF Ti=3 THEN GOSUB 570 

450 T1i=TEST(CAIMANX*x16,)399-16x*CAIMANY ) 
460 IF Ti=1 THEN 660 ELSE IF Ti=2 THEN G 
OSUB 5610 ELSE IF Ti=3 THEN GOSUB 570 

470 Ti1i=TEST(CAIMANX*16-16,399-16*CAIMANY 


O. Q 


O 


Oc DO. QU 0 


O 0 O 0 


O. “O ¿0-70 OL O CO “Oh 0 O O 0 


O 


480 


IF Ti=1 THEN 660 ELSE IF Ti=2 THEN G 


OSUB 610 ELSE IF Ti=3 THEN GOSUB 570 


490 


PEN 1:LOCATE CAIMANX>»CAIMANY:PRINT U 


SING"3";¿CAIMANS(FASE) 


500 


RETURN 


Respiración del caimán 


510 
520 


LOCATE CAIMANX)5:PEN 3:PRINT CHR$(15 


4) ¡CHR$(154) 


530 
540 
INT 
5590 


560 
570 
580 
UND 
590 


CAIMANY=CAIMANY+1 : SEG=15—NR 

PEN 1:FOR I=8 TO 22-NR:LOCATE 1,3:PR 
CHR$ (143) ¿NEXT 

RETURN 


jugador se come el pez exótico 


PUNT=PUNT+10:GOSUB 840 

SOUND 1,50,15,15:SOUND 1,40,15,15:5S0 
1,60,25,15 

RETURN 


jugador se come el pez amarillo 


600 : 

610 PUNT=PUNT+50:GOSUB 840 

620 FOR I=100 TO 30 STEP-8:SOUND 1,15,55,1 
S:NEXT 

630 NPEZA=NPEZA-1 : SEG=SEG+1 

640 RETURN 


El jugador se come la mina 


650 
660 
670 


FOR I=1 TO 25:BORDER 1 
SOUND 1,0,10,1515,131 


O 


O 


O. O 50) 4 Or O -00-0 O 9) 50 


O 


O 


210 


680 INK O, INT(RND(1)+*26) 
690 FOR J=1 TO 70: NEXT:NEXT 
700 GOTO 930 


El caimán se ahoga (no queda aire) 


710 : 

720 GOSUB 800 

730 PEN 3:LOCATE 1,2:PRINT"POBREL_CAIMAN,, 
SELHALAHOGADO! ! !" 

740 GOTO 930 


El tiempo ha terminado 


750 : 

760 PEN 1:LOCATE 1,2:PRINT"ERES,_DEMASIAD 
OLLENTOL —.F IN,LDEL,. TIEMPO" 

770 PRINT CHR$(7) 

780 GOTO 930 


Muestra aire que queda 


790 : 
800 LOCATE 22-NR-SEG,3:PRINT",," 

810 LOCATE 20,1:PEN 3:PRINT"TIEMPO:,"5TP 
O 

820 RETURN 


Actualizar puntuación 


830 : 

840 PEN 3:LOCATE 1,1:PRINT"MARCADOR:,.,"3P 
UNT 

850 RETURN 


Decrementa capacidad de aire y tiempo transcurrido 


860 : 
870 SEG=SEC-1:TPO=TPO-1 
880 RETURN 


Anima caimán 


890 : 
900 FASE=(FASE MOD 2)+1 
910 RETURN 


Fin del juego 


920 : 

930 SOUND 1,1000,505,15 

940 FOR I=10 TO 30:FOR J=10 TO 15:LOCATE 
I,>J:PRINT",,":NEXT:NEXT 

950 PEN 1:LOCATE 13,12:PRINT"FIN,_DEL,,JUE 

Go" 

960 SOUND 1,1000,50,15 

970 IF INKEY$=""THEN 980 ELSE 970 

980 IF INKEY$=""THEN 980 ELSE RUN 


Tablas de comprobación 


10 = 1775 100 = 5465 190 = 353 

20 = 2790 110 = 4103 200 = 2466 
30 = 3559 120 = 0 210 = 2925 
40 = 3190 130 = 509 220 = 1151 
50 = 3714 140 = 1877 230 = 2782 
60 = 1811 150 = 1845 240 = 1898 
70 = 2026 160 = 4441 250 = 5594 
80 = 21559 170 = 3434 260 = 1182 
90 = 5448 180 = 5999 270 = 0 
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212 


280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 


IS A 


"o4 


320 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 


"on 


760 
770 
780 


800 
810 


] 


"oy 


3240 
551 
3595 
10) 
1756 
1829 
201 
O 
1974 
201 
O 
2499 
201 
0 
1766 
201 
O 
727 
3374 
1691 
727 
1657 
1624 
195357 


MUEVE LAS 


Clasificación: 


JUEGO DE SIMULACION 


Este es un juego para dos jugadores de todas las edades, indicado tanto para 
el jugador novato como para el experto. Para jugar se utiliza un tablero simulado 
y el jugador mueve la ficha a la posición apropiada. 

El juego se controla con las siguientes teclas: 


“A” para mover el cursor hacia arriba. 
“Z” para mover el cursor hacia abajo. 
“>” para mover el cursor a la izquierda. 


“” para mover el cursor a la derecha. 


Utiliza el “espacio” para depositar o coger la ficha y la “C” para cambiar un 
movimiento. Pulsa “SHIFT” y “Q” para volver a jugar o terminar. 


SUGERENCIAS DE PROGRAMACION 


El juego puede cambiarse de muchas formas. Tal como está, juega de un modo 
razonable, pero podría alterarse para jugar contra el ordenador, tener diferentes 
niveles de juego y tener diferentes límites de tiempo para mover en cada nivel de 
juego. 


215 


Variables del programa 


A, B Coordenadas del cursor. 

C Color. 

OTRA Bandera para volver a comenzar. 

FLAG ¿Tienes pulsada “C”? 

X(8,8), Y(8,8) Coordenadas de cada cuadrado 

COL(8,8) Colores del papel de cada cuadrado. 
CONTEN(8,8) Contenido de cada cuadrado. 

MX(3000), MY(3000) Coordenadas de los movimientos. 

CONTM Cuenta de los movimientos. 

PIEZASN Número de piezas negras. 

PIEZASR Número de piezas rojas cogidas. 

N Temporal. 

PIEZAS Cadena de damas. 

SPS Cadena de espacio. 

T Temporal. 

DX, DY Coordenadas de la posición de la que se mueve una pieza. 
DESX, DESY Coordenadas a las que se mueve una pieza. 
DIB$ Cadena de dibujo. 


Estructura del programa 


Líneas Función] Actividad 


10-40 Llamada de inicialización 
50-440 Bucle principal 
450-590 Control del cursor 
600-680 Volver a empezar 
690-790 — Dibujo del tablero 
800-850 Rutina de bloques 
860-980 Inicialización 
990-1270 Volver a inicializar 
1280-1330 Menú 


Llamada de inicializar el juego 


10 GOSUB 860 
20 A=1:B=1 
30 CONTM=1 
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Bucle principal del programa 


40 : 


50 GOSUB 70 
£60 GOTO 50 
70 C=4 


80 LOCATE 1,23 

90 PEN C:PAPER O:PRINT"MUEVEN,LAS,_ROJAS,, 
100 IF OTRA<>1 THEN GOSUB 450:PRINT CHR$ 
(7)ELSE 130 

110 IF FLAG=1 THEN 70 

120 IF CONTEN(A,B>)<>C THEN 100 ELSE DX=A 
:DY=B 

130 IF OTRA<>1 THEN GOSUB 450:PRINT CHRs$ 
(7)ELSE GOSUB 600 

140 IF FLAG=1 THEN GOTO 70 

150 IF COL(A,B)=3 OR CONTEN(A,B>)<>0 OR A 
>DX+2 OR A<DX-2 OR A=DX THEN GOTO 130 
1560 DESX=A:DESY=B 

170 IF DX<8 THEN IF(A=DX+2 AND CONTEN(DX 
+1,DY+((DESY-DY)/2))<>5)THEN GOTO 130 
180 IF DX>1 THEN IF(A=DX-2 AND CONTEN(DX 
-1,DY+((DESY-DY)/2))<>5)THEN GOTO 130 
190 PEN C:CONTEN(A,B>)=C:PAPER COL(A,B):D 
IB$=PIEZA$:GOSUB 800 

200 CONTEN(DX,DY)=0:A=DX:B=DY:PAPER COL ( 
A,B):DIB$=SP$:GOSUB 800 

210 IF OTRA<>1 THEN MX(CONTM)=DX:MY (CONT 
M)=DY : CONTM=CONTM+1 : MX(CONTM)=DESX :MY (CO 
NTM)=DESY :CONTM=CONTM+1 

220 IF ABS(DY-DESY)=2e THEN CONTEN(DX+((D 
ESX-DX)/2),(DY+((DESY-DY)/2)))=0:PIEZASN 
=PIEZASN+1:LOCATE PIEZASN,21:PEN 5: PAPER 
O:PRINT CHR$(231)ELSE 240 

230 A=DX+((DESX-DX)/2):B=DY+((DESY-DY)/2 
) :PAPER COL(A,B):DIB$=SP$:GOSUB 800 

240 IF PIEZASN=12 THEN LOCATE 1,23:PAPER 
O:PRINT"GANANLLAS._ROJAS!!":FOR N=1 TO 1 
O:FOR T=1 TO 1000 STEP S5SO:SOUND 129,T,10 
s»15: NEXT T:NEXT N:FOR T=1 TO 3000:NEXT T 
:GOTO 1280 


o. O 


O 7 “Or O 1. 0. 0O.Q Y 


O 


O 
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O. 0 


o. oO 
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250 C=5 
260 LOCATE 1,23 
270 PEN C:PAPER O:PRINT"MUEVEN,LAS_AZULE 


280 IF OTRA<>1 THEN GOSUB 450:PRINT CHR$ 
(7)ELSE 310 

290 IF FLAG=1 THEN 250 

300 IF CONTEN(A>,B)<>C THEN GOTO 280 ELSE 
DX=A:DY=B 

310 IF OTRA<>1 THEN GOSUB 450:PRINT CHR$ 
(7)ELSE GOSUB 400 

320 IF FLAG=1 THEN 250 

330 IF COL(A,B)=3 OR CONTEN(A,B)<>0 OR A 
>DX+2 OR A<DX-2 OR A=DX THEN GOTO 310 

340 DESX=A:DESY=B 

350 IF DX<8 THEN IF(A=DX+2 AND CONTEN(DX 
+1,DY+((DESY-DY)/2))<>4)THEN GOTO 310 

360 IF DX>1 THEN IF(A=DX-2 AND CONTEN(DX 
-1,DY+((DESY-DY)/2))<>4)THEN GOTO 310 

370 PEN C:CONTEN(A,B)=C:PAPER COL(DESX»,D 

ESY) :A=DESX :B=DESY:DIB$=PIEZA$:GOSUB 800 

380 IF OTRA<>1 THEN MX(CONTM)=DX:MY (CONT 

M)=DY : CONTM=CONTM+1 :MX(CONTM)=DESX : MY (CO 

NTM)=DESY : CONTM=CONTM+1 

390 CONTEN(DX,DY)=0:A=DX:B=DY:PAPER COL ( 

A,B):DIB$=SP$:GOSUB 800 

400 IF ABS(DY-DESY)=2 THEN CONTEN(DX+((D 

ESX-DX)/2),(DY+((DESY-DY)/2)))=0:PIEZASR 

=PIEZASR+1:LOCATE 20,PIEZASR:PEN 4: PAPER 
O:PRINT CHR$(231)ELSE 420 

410 A=DX+((DESX-DX)/2):B=DY+( (DESY-DY)/2 
): PAPER COL(A,B):DIB$=SP$:GOSUB 800 

420 IF PIEZASR=12 THEN LOCATE 1,23:PAPER 
O:PRINT "GANANL_LAS_AZULES!!":FOR N=1 TO 
10:FOR T=1 TO 1000 STEP 50:SOUND 129,7T, 
10,15:NEXT T:NEXT N:FOR T=1 TO 3000:NEXT 
T:GOTO 1280 

430 RETURN 


Control del cursor 


440 : 
450 IF INKEY(67)=32 THEN GOTO 1280 
460 IF INKEY(62)=-1 THEN FLAG=0:PAPER 10 


O 


ELSE FLAG=1:RETURN 

470 PEN CONTEN(A)5,B) 

480 IF CONTEN(A>,B)>0 THEN DIB$=PIEZAS+ EL 
SE DIB+$=SP+$ 

490 GOSUB 800 

500 PAPER COL (A5,B) 

510 GOSUB 800 

520 IF INKEY(47)>-1 THEN RETURN 

530 A=A+(INKEY (39)>-1)-(INKEY(31)>-1):B= 
B+( INKEY(69)>-1)-(INKEY (71)>-1) 

540 IF A>8 THEN A=1 

550 IF A<x<1 THEN A=8 

560 IF B>8 THEN B=1 

570 IF B<1 THEN B=8 

580 GOTO 450 


Volver a empezar el juego 


590 : 

£600 DX=MX(CONTM) : DY=MY(CONTM) 

610 CONTM=CONTM+1 

620 A=MX(CONTM) 

630 B=MY(CONTM) 

640 CONTM=CONTM+1 

£650 IF MX(CONTM)=0 THEN GOTO 1280 
£660 IF INKEY(67)>-1 THEN OTRA=0 
670 RETURN 


Dibujo del tablero 


680 : 

690 FOR T=1 TO 8 

700 FOR N=1 TO 8 

710 PAPER COL(N,T) 

720 IF CONTEN(N>,T)=0 THEN DIB$=SP$ 
730 A=N:B=T 

740 IF CONTEN(N>T)>0 THEN DIB$=PIEZAS+ 
750 PEN CONTEN(N),T) 

760 GOSUB 800 

770 NEXT N:¿NEXT T 

780 RETURN 


o. oO 


O. 07 750. “O “E O: 70 ON O 


O. O $ 
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O 0 0-0 E 70.0 O 0 


O 


O 
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Rutina de bloques 


800 LOCATE X(A,B),Y(A,B) 
810 PRINT LEFT+$(DIB$,2) 
820 LOCATE X(A,B),Y(A,B)+1 
830 PRINT RIGHT$(DIB$,2) 
840 RETURN 


Inicialización 


850 : 

860 MODE O 

870 PEN 1: INK 1,18 
880 PAPER O 

890 BORDER 1 

900 INK 0O5,1:CLS 

910 INK 2,26 

920 INK 3,0 

930 INK 45,6 

940 OTRA=0 

950 INK 5,20 

960 INK 75,8 

970 DIM X(8,9),Y(8,8),C0L(8,8),CONTEN(8, 
8) ,MX (3000) ,MY(3000) 


Volver a inicializar 


980 : 

990 CLS:CONTM=1 :PIEZASN=0:PIEZASR=0 

1000 FOR T=1 TO 8:FOR N=1 TO 8: CONTEN(N, 
T)=0:NEXT ¡“¿NEXT T 

1010 FOR N=1 TO 8 STEP e 

1020 CONTEN(N>1)=4:CONTEN(N+15,2)=4: CONTE 
N(N,3)=4 

1030 CONTEN(N+15,8)=5:CONTEN(Ns,7)=5: CONTE 
N(N+15,6)=5 

1040 NEXT N 

1050 SYMBOL 240,0,3,15,315,63,63,127,127 


O 


Or ¿O Or E “2 O. O 


O O 0. 8 


1060 SYMBOL 241,0,192,240,248,252,252,e85 
4,254 

1070 SYMBOL 242,127,127,)63,63,31,155,35,0 

1080 SYMBOL 243,254,254,e52,2852,248,2405 
192,0 

1090 PIEZAS$=CHR$ (240) +CHR$ (241 )+CHRs (242 
) +CHR$ (243) 

1100 SP$=" uuu" 

1110 FOR T=1 TO 8 STEP 2:FOR N=1 TO 8 ST 
EP e 

1120 COL(N,T)=2:COL(N+15,T)=3 

1130 NEXT N:NEXT T 

1140 FOR T=2 TO 8 STEP 2:FOR N=1 TO 8 ST 
EP 2 

1150 COL(N,T)=3:COL(N+1>,T)=2 

1160 NEXT N:NEXT T 

1170 FOR T=1 TO 8 

1180 FOR N=1 TO 8 

1190 X(N,T)=N*2:Y(N,T)=Tx*2 

1200 NEXT N:NEXT T 

1210 GOSUB 4690 

1220 LOCATE 1,1:PAPER O:PEN 1:PRINT STRI 
NG$ (18), CHR$(143)) 

1230 LOCATE 1,18:PAPER O:PEN 1:PRINT STR 
ING$(18,CHR$(143)) 

1240 FOR T=2 TO 17:LOCATE 1,T:PRINT CHR$ 
(143):LOCATE 18,T:PRINT CHR$(143):NEXT T 
1250 LOCATE 85,1:PEN 7:PRINT"DAMAS" 

12650 PEN 1:RETURN 


1270 : 

1280 LOCATE 1,825 

1290 PRINT"QUIERES,JUGAR,DE,_NUEVO,,[S/N]" 
1300 A$=INKEY$: IF A$=""THEN 1300 

1310 IF A$="S"OR A$="s"THEN OTRA=1 : GOSUB 
990:GOTO 30 

1320 IF A$="N"OR A$="n"THEN END 

1330 GOTO 1300 
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Tablas de comprobación 
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A O TT CI A 


"onu. .,OQÚ OD. 42. 


284 
922 
780 
10) 
291 
240 
465 
276 
2119 
2544 
1173 
3877 
2695 
1461 
7403 
1791 
6727 
6719 
4472 
5306 
10409 
11621 
7058 
9479 
466 
308 
2172 
2469 
1449 
3994 
2695 
1449 
7328 
1791 
6651 
6643 
6750 
10409 
5306 
11556 
77058 
9600 


430 = 


440 
450 
460 
470 
480 
490 
500 


510 
520 


530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
7250 
760 
770 
780 
790 
800 
810 
820 
830 
840 


uno "oa 


850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 


ion 


A 


"on 


1270 = 0 1310 = 3353 
1280 = 278 1320 = 2090 
1290 = 2232 1330 = 215 
A TOTAL = 306836 
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Rompe 
ladrillos 


Clasificación: 


JUEGO DE EVASION 


Tienes quince pelotas con las que tienes que abrir camino a través de los ladrillos 
de los muros. Intenta jugar con tus amigos y ver quién puede conseguir la mejor 
puntuación. 


SUGERENCIAS DE PROGRAMACION 


Puedes hacer más sencillo el juego reduciendo el número de ladrillos (NLADRS) o 
alterando el número de pelotas permitidas. 


Variables del programa 


NLADRS Número de ladrillos que quedan. 

DECX(3,3,3), Tablas de decisión triple que dan las velocidades de X e Y, 
DECY(3,3,3) respectivamente. 

XVEL, YVEL Velocidad actual de X e Y, respectivamente. 

RATCOL Columna de la raqueta. 

PELX, PELY Coordenadas de la pelota. 
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NFALLOS Número de fallos. 
GOLPE La pelota golpea algo. 
DCT Número de la tabla de decisión (1-3). 


Estructura del programa 


Líneas Función] Actividad 


10-80 Inicializar 

90-170 Nuevo intento 

180-260 Control 
270-360 Movimiento de la pelota 
370-430 Colisión 
440-470 Pantalla terminada 
480-500 Actualizar puntuación 
510-540 Fin del juego 
550-600 Tabla de decisión 


O! 
| 
| Inicializar 

O | 0 
1] ] 
] 
| 10 MODE 1: INK 0,13:INK 1,3: INK 2,0: INK 3 | 

O ! 1 | O 
|. 20 FOR I=1 TO 3:FOR J=1 TO 3:FOR K=1 TO 
| 3 I 

O ¡| 30 READ Q:DECX(1,J,K>=Q O 
l 40 NEXT:NEXT:NEXT 
50 FOR I=1 TO 3:FOR J=1 TO 3:FOR K=1 TO | 

Ol 3 O 
| 60 READ Q:DECY(I,J,K>=Q 
70 NEXT:NEXT:NEXT 

O | 10 
] 
| , ] 

¿ ps 
| | 
| | 
| 

O 80 : EE! 
Il 90 REM | 
| 100 PELX=1:PELY=10:RATCOL=19:NLADRS=360: 1 

O | NEaLLos=0 0 
| ] 
1 ] 


110 PAPER O:CLS:BORDER 13 
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O 


O 


O 


120 PEN 1:FOR I=1 TO 40:FOR J=1 TO 4:LOC 
ATE I>J:PRINT CHR$(233):NEXT:NEXT 

130 FOR I=1 TO 40:FOR J=20 TO 24:LOCATE 
1,J:PRINT CHR$(233):NEXT: NEXT 

140 GOSUB 480 

150 PEN 2:LOCATE RATCOL,12:PRINT CHR$(14 
3);CHR$ (143) 

160 XVEL=1:YVEL=1 


Control 


170 : 

180 PEN 2:LOCATE RATCOL),12:PRINT CHR$(14 
3);CHR$(143) 

190 GOSUB 270 

200 IF INKEY(39)=-1 OR RATCOL<3 THEN 220 
210 LOCATE RATCOL),128:PRINT",,.,":RATCOL=RA 
TCOL-2 

220 IF INKEY(31)=-1 OR RATCOL>37 THEN 24 
0) 

230 LOCATE RATCOL)>,12:PRINT",,,":RATCOL=RA 
TCOL+2 

240 REM 

250 GOTO 180 


Movimientos de la pelota 


260 : 

270 LOCATE PELX)PELY:PRINT",," 

280 IF PELY=12 AND YVEL<>0 THEN NFALLOS= 

NFALLOS+1:PEN 3:LOCATE 20,25:PRINT"FALLO 
S:i."¿NFALLOS: IF NFALLOS>14 THEN 510 

290 PELX=PELX+XVEL : PELY=PELY+YVEL 

300 PELX=(PELX>40)-(PELX<1)+PELX:PELY=(P 

ELY>24)-(PELY<1)+PELY: IF PELX=1 OR PELX= 
40 THEN GOLPE=4:GOTO 370 

310 IF PELY=1 OR PELY=24 THEN GOLPE=4:G0 
TO 370' 

320 DATA 1,1,1,)0)0+05-13-1,-1 

330 GOLPE=TEST (16*PELX-895,407-16*PELY): IF 
GOLPE<>0 THEN 370 


O 


O e O O O: O... 0 9 


Or Y. O O Y 


O 
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340 PEN 2:LOCATE PELX)PELY:PRINT CHR+$(23 
1) 
350 RETURN 


Colisión 


360 : 

370 IF GOLPE=2 THEN NFALLOS=NFALLOS-1: IF 
RND(1)<0.5 THEN DCT=3:GOTO 400 ELSE DCT 
=1:GOTO 400 

380 IF RND(1)<0.5 THEN DCT=2 ELSE DCT=3 
390 IF GOLPE<>4 THEN SOUND 1,0,5,15>1>15» 
31 : PUNT=PUNT+S : NLADRS=NLADRS-1: IF NLADRS 
<1 THEN 440 ELSE GOSUB 480 

400 XT=DECX(DCT,XVEL+2), YVEL+2): YVEL=DECY 
(DCT, YVEL+2), XVEL+2) : XVEL=XT 

410 PEN 3:LOCATE PELX»PELY:PRINT CHR+(23 
1) 

420 RETURN 


Pantalla terminada 


430 : 

440 PUNT=PUNT+100:PAPER 1:CLS:PEN 2:PRIN 
T"NUEVO,,INTENTO, - PUNTUACION: ,,"5PUNT 

450 FOR I=1 TO 3000:NEXT 

460 GOTO 100 


Actualizar puntuación 


470 : 

480 PEN 3:LOCATE 1,25:PRINT"MARCADOR:.,"; 
PUNT 

490 RETURN 


Fin del juego 


500 : 
510 LOCATE 15,1:PEN 2:PRINT"FIN,_DEL,_JUEG 
o" 


O) 0 O Y) 


O 


O” O. O O TO “O 0 


Or 50 O: 90 


O 1 520 IF INKEY$=""THEN 530 ELSE 520 
530 IF INKEYs$=""THEN 530 ELSE RUN 


O 


Tabla de decisión 


1,0,-1,-15,05,1 
1,0,-1 ,0)0,0 
O,-1)-1,-1,1 


Tablas de comprobación 


10 = 1162 220 = 2873 430 = 0 

20 = 2642 230 = 2888 440 = 4887 
30 = 2158 240 = 0 450 = 1356 
40 = 530 250 = 370 460 = 322 
50 = 2642 260 = 0 470 = 0 

60 = 2127 270 = 1446 480 = 2009 
70 = 530 280 = 7915 490 = 201 
g80 = O 290 = 3706 500 = 0 
90= 0 300 = 9873 s10 = 1072 
100 = 4202 310 = 3371 520 = 1267 
110 = 508 320 = 1065 530 = 1429 
120 = 4086 330 = 4842 540 = O 
130 = 3912 340 = 2209 550 = 1097 
140 = 414 350 = 201 560 = 1049 
150 = 2409 360 = O 570 = 1098 
160 = 1430 370 = 6561 580 = 1097 
170 = 0 380 = 2727 590 = 1097 
180 = 2409 390 = “72594 600 = 1097 
190 = 204 400 = 7073 
200 = 2819 410 = e2elo TOTAL = 123568 
elo = 2921 420 = 201 
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Treinta y una ¿29 


Clasificación: 


JUEGO DE SALON 


La inflación llega incluso al Blackjack en este juego, donde el Amstrad te reta a un 
juego de cartas. Suma el valor de tus cartas y si estás más próximo a 31 que el 
Amstrad, entonces tú ganas. Por supuesto, un valor superior a 31 te cuesta a ti (o al 
Amstrad) el juego. 

Responde a las preguntas que se te formulen pulsando los números, y a 
continuación <ENTER >. 


SUGERENCIAS DE PROGRAMACION 


El juego podría hacerse más complejo consiguiendo que el Amstrad recuerde qué 
cartas han sido usadas y calcule las probabilidades para la próxima carta. 


Variables del programa 


CARTS Cadena de la cara de una carta. 

CARTS$(52) Cada cadena será impresa en la cara de la carta. 
BARJA(52) Baraja de cartas. 

CC(52) Colores de las cartas. 

MANO(16) Mano del ordenador. 
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SIGC Número de la siguiente carta en la baraja. 


TOTAL Balance de la cuenta. 

APSTA Dinero de la apuesta en esta mano. 
PPTS Puntos del jugador. 

OPTS Puntos del ordenador. 

NCJ Número de cartas del jugador. 
NCO Número de cartas del ordenador. 
COL, FIL Columna y fila para dibujar cartas. 
DIB Dibujar carta. 

BL$ Inicializar cadenas de cartas. 
PARO Bandera de paro del jugador. 


I, J, K, TS Temporales. 


Estructura del programa 


Lineas Función] Actividad 


10-520  Inicializar variables 
530-580  Inicializar pantalla y mano del jugador 
590-650 Bucle principal 
660-710 Dibuja carta 
720-780 Fin de mano 
790-860 Nuevo intento o fin 
870-880 Pierde el jugador 


Inicializar variables 


10 DEF FNPTS(C)=(C MOD 13)-13*((C/13)=IN 
T(C/13)) 

20 MODE 1: INK O,1:INK 1,26: INK 2,6: INK 3 
yO 

30 DEF FNSUIT(C)=-228*(C<14)-229*(C0>39)- 
227*((C0>=14)AND(C<=26) )-226* ( (C>=27)AND ( 
C<=39)) 

40 SYMBOL AFTER 236:SYMBOL 236,255,127),4 
2,31,19,29,9,165:SYMBOL 237,32,)56,16,2851 
6,)16,17,14 

SO SYMBOL 238,255,254,172,248,248,248,18 
8,136:SYMBOL 239,115,92,84,108,106,2185,1 
51,7 

£0 SYMBOL 240,0,0,0,0,3,7,15,15:SYMBOL 2 
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41,0,0,0,0,25595+259+299+8959 

70 SYMBOL 242,0,0,0,0,192,224,240,240:SY 
MBOL 243,155,15,15,15,15,15,15,15 

80 SYMBOL 244,240,240,240,240,240,240,24 
0,240:SYMBOL 245,15,15,7,3,0,0,05,0 

90 SYMBOL 246,255,255,259)255)0,10,0,0:SY 
MBOL 247,240,240,224,192,0,0,0,0 

100 SYMBOL 248,45,10,15,5+)7,)5,10,10:SYMBO 
L 249,10,10,21,21,26,54),73),48 

110 SYMBOL 250,485,170,254,84,252,72,136, 
152:SYMBOL 251,132,130,28,8,24,8,8,240 
120 SYMBOL 252,0,5,11,15,31,62,60,121:SY 
MBOL 253,120,120,120,124,124,124,62,31 
130 SYMBOL 254,128,80,232,248,28,12,145,3 
9:SYMBOL 255,7,7,)199,15,207,15,30,252 
140 CART$=CHR$ (240)+STRING$(7,241 )+CHR$ ( 
242) +CHR$ (10)+STRING$(9,8): T$=CHR$ (243)+ 
STRING$(7,143)+CHR$ (244) 

150 FOR I=1 TO 9: CART$=CART$+T$+CHR$(10) 
+STRING$(9,8): NEXT 

160 CART$=CARTS$+CHR$ (245)+STRING$(7,246) 
+CHR$ (247) 

170 DIM CC(52),CARTS$(52) ,BARJA(52) MANO 
(16) 

180 FOR I=1 TO 26:CC(1)=2:NEXT 

190 FOR I=27 TO 52:CC(1I)=3:NEXT 

200 T$*=STRING$(9,9):FOR I=1 TO 10:BL$=BL 
$+T$+CHR$(10)+STRINGS (9,8): NEXT 

210 FOR I=1 TO 52:CARTS$(1)=BL$:BARJA(I1) 
=] ¿NEXT 

220 MID$(CARTS$(1),21,1)="A":MIDS$(CARTSS 
(1),179,1)="A": FOR I=2 TO 9:MID$(CARTS$( 
1),21,1)=CHR$(48+1):MID$(CARTS$(1),1795,1 
)=CHR$ (48+1): NEXT 

230 MID$(CARTS$(14),21,1)="A":MID$(CARTS 
$(14),179,1)="A":FOR I=2 TO 9:MID$(CARTS 
$(1+13),21,1)=CHR$(48+1):MID$(CARTS$(I+1 
3),179,1)=CHR$ (48+1) : NEXT 

240 MID$(CARTS$(27),21,1)="A" : MID$(CARTS 
$(27),179,31)="A": FOR I=2 TO 9:MID$(CARTS 
$(1+26),21,1)=CHR$(48+1) :MID$(CARTS$ ( I+2 
6),179,1)=CHR$(48+1): NEXT 

250 MID$(CARTS$(40),21,1)="A" :MID$(CARTS 
$(40),179,1)="A":FOR I=2 TO 9:MID$(CARTS 
$(1+39),21,1)=CHR$(48+1) :MIDS(CARTS$(1+3 
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9),179,1)=CHR$(48+1) : NEXT 

260 FOR I=10 TO 49 STEP 13:MID$(CARTS$ (1 
))21,1)="1":MID$(CARTS$(1),22,)1)="0":MID 
$(CARTS$(1),178,1)="1":MID$(CARTS$(1),17 
931)="0":*NEXT 

270 FOR I=11 TO 50 STEP 13:MID$S(CARTSS$ (1 
)1281,1)="J":MID$(CARTS$(1),179,1)="J":NE 
XT 

280 FOR I=12 TO 51 STEP 13:MID$(CARTS$ (1 
),32131)="Q":MID$(CARTS$(1),179,1)="Q":NE 
XxT 

290 FOR I=13 TO 52 STEP 13:MID$(CARTS$ (1 
),121,1)="K" :MID$(CARTS$(1),179,1)="K":NE 
XT 

300 FOR I=i TO 40 STEP 13:MID$(CARTS$(1) 
»100,1)=CHR$(FNSUIT(1)):NEXT 

310 FOR I=2 TO 41 STEP 13:MID$(CARTS$(1) 
143,1)=CHR$(FNSUIT(1)):MIDS(CARTS$(1),15 
7,1)=CHR$(FNSUIT(1)):NEXT 

320 FOR I=3 TO 42 STEP 13:MID$(CARTS$(I1) 
143,1)=CHR$(FNSUIT(1)):MID$(CARTS$(1),15 
7y1)=CHR$(FNSUIT(1)) :MIDSC(CARTS$(1),100, 
1) =CHR$(FNSUIT(1)):NEXT 

330 FOR I=4 TO 43 STEP 13: T$=CHR$(FNSUIT 
(1)):MID$(CARTS$(1),41,1)=T$:MID$(CARTSS 
(1),45,1)=T$:MID$(CARTS$(1),155,1)=T$:MI 
D$(CARTS$(1),159,1)=T$:NEXT 

340 FOR I=5 TO 44 STEP 13: T$=CHR$(FNSUIT 
(1)):MID$(CARTS$(1),41,1)=T$:MID$(CARTSS 
(1),45,1)=T$:MID$(CARTS$(1),155,1)=T$:MI 
D$(CARTS$(1),159,1)=T$:MID$(CARTS$(1),10 
0,1)=T$: NEXT 

350 FOR I=65 TO 45 STEP 13:T$=CHR$(FNSUIT 
(1)):MIDS$(CARTS$(1),41,1)=T$:MID$(CARTSS$ 
(1),45,1)=T$:MID$(CARTS$(1),1559,1)=T$:MI 
D$(CARTS$(1),159,1)=T$:MID$(CARTS$(1),10 
2,1)=T$ 

360 MID$(CARTS$(1),98,1)=T$:NEXT 

370 FOR I=7 TO 46 STEP 13: T$=CHR$(FNSUIT 
(1)):MID$(CARTS$(1),41,1)=T*$:MID$(CARTSS$ 
(1),45,1)=T$:MID$(CARTS$(1),1559+1)=T$:MI 
D$(CARTS$(1),102,1)=T+$ 

380 MID$(CARTS$(1),6231)=T$:MID$(CARTSS ( 
1),98,1)=T$:NEXT 

390 FOR I=8 TO 47 STEP 13: T$=CHR$(FNSUIT 
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(1)):MID$(CARTS$(1),41,1)=T$:MID$(CARTSS$ 
(1),145,1)=T$S:MID$(CARTS$(1),155,1)=T$:MI 
D$(CARTS$(1),159,1)=T$:MID$(CARTS$(1),10 
2,31)=T+$ 

400 MID$(CARTS$(1),62,31)=T$:MID$(CARTSS$ ( 
1),98,1)=T$:MID$(CARTS$(1),138,1)=T*$:NEX 
7 

410 FOR I=9 TO 48 STEP 13:T$=CHR$(FNSUIT 
(1)):MID$(CARTS$(1),41,1)=T$:MID$(CARTSS$ 
(1),45,1)=T$:MID$(CARTS$(1),79,1)=T$:MID 
$ (CARTS$(1),83,1)=T$:MID$(CARTS$(1),117, 
1)=T$ 

420 MID$(CARTS$(1),121,1)=T$:MID$(CARTSS 
(1),155,1)=T$:MID$(CARTS$(1),159,1)=T$:M 
ID$(CARTS$(1),100,1)=T$:NEXT 

430 FOR I=10 TO 49 STEP 13: T$=CHR$(FNSUI 
T(1)):MIDS(CARTS$(1),41,1)=T$:MID$(CARTS 
$(1),45,)1)=T$5:MIDS$(CARTS$(1),79,1)=T$:MI 
D$ (CARTS$(1),83,1)=T$:MID$S(CARTS$(1),117 
)1)=T$ 

440 MID$(CARTS$(1),121,1)=T$:MID$(CARTSS 
(1),155,1)=T$:MID$(CARTS$(1),159,1)=T$:M 
ID$(CARTS$(1),62,)1)=T$:MID$(CARTS$(1),13 
89,)1)=T$:NEXT 

450 FOR I=11 TO 50 STEP 13: T$=CHR$(FNSUI 
T(1)):MIDS(CARTS$(1),27)1)=T$:MID$(CARTS 
$(1),173,1)=T$:MID$(CARTS$(1),99,1)=CHR+$ 
(236) :MID$(CARTS$(1),100,1)=CHR$(238) :MI 
D$(CARTS$(1),118,1)=CHR$(237) 

460 MID$(CARTS$(1),1195,1)=CHR+$ (239) ¿NEXT 
470 FOR I=12 TO 51 STEP 13:T$=CHR$(FNSUI 
T(1)):MIDS(CARTS$(1),27,1)=T$:MID$(CARTS 
$(1),173,1)=T+$:MID$(CARTS$(1),99,1)=CHR$ 
(252) :MID$(CARTS$(1),100,1)=CHR$(254) :MI 
D+(CARTS$(1),1189),1)=CHR+$ (253) 

480 MID$(CARTS$(1),119,1)=CHR$ (255) : NEXT 
490 FOR I=13 TO 52 STEP 13: T$=CHR$(FNSUI 
T(1)):MIDS(CARTS$(1),27,1)=T$:MID$(CARTS 
$(1),173,1)=T$:MID$(CARTS$(1),99,1)=CHR$ 
(248) :MID$(CARTS$(1),100,1)=CHR$(250) :MI 
D$(CARTS$(1),118,1)=CHR$(249) 

500 MID$(CARTS$(1),1195,1)=CHR$ (251) : NEXT 
510 TOTAL=100:FOR I=1 TO 100: J=INT(RND(i 
)452)+1 :K=INT(RND(1)52)+1 : T=BARJA(J):BA 
RIJA(J)=BARJA(K):BARJA(K)=T: NEXT 
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Inicializar pantalla y mano del jugador 


520 : 

530 PAPER O:CLS:BORDER 1 

540 PEN 1:LOCATE 15,1:PRINT"TU_MANO" : LOC 
ATE 15,25:PRINT"CONTADOR:,,"53:PRINT USING 
"RHRERHRARRRRRHR"S TOTAL 

550 SIGC=2:DIB=BARJA(1):COL=1:FIL=2:G05U 
B 660:NCJ=1 

560 PPTS=FNPTS(DIB):LOCATE 15,15:PEN 1:P 
RINT"PUNTOS:._"5PPTS 

570 LOCATE 1,20: INPUT"Apuesta,inicial"”;zX 
$ : APSTA=VAL (X$) 


Bucle principal del programa 


580 : 

590 NCO=NCO+1 :OPTS=0PTS+FNPTS(BARJA(SIGC 
)) :MANO(NCO)=BARJA(SIGC):SIGC=SIGC+1: 1F 
OPTS>25 AND PARO=1 THEN 720 

600 IF PARO=1 THEN 590 ELSE DIB=BARJA(SI 
GC) :COL=1+4*NCJ:FIL=2:GOSUB 660:SIGC=SIG 
C+1:NCJ=NCJ+1 

610 PPTS=PPTS+FNPTS(DIB):LOCATE 15,15:PE 
N 1:PRINT"PUNTOS:.";PPTS:IF PPTS>31 THEN 
870 

620 LOCATE 1,22:PEN 1: INPUT"QUIERES,_PLAN 
TARTEL(S/M)"5X$:1F X$<>"S"AND X$<>"s"THE 

N 630 ELSE PARO=1:1F OPTS>25 THEN 720 EL 
SE 590 

£30 LOCATE 1,20: INPUT"CUANTO, QUIERES, ANA 
DIRLALTULAPUESTA"3X$ : APSTA=APSTA+VAL(X$) 

640 LOCATE 1,20:PRINT SPACES$(39):LOCATE 
1,22:PRINT SPACE$(39):1F OPTS>25 THEN 60 

O ELSE GOTO 590 


Dibuja carta 


650 : 
660 PEN 1:LOCATE COL,FIL 


O 


O 


O: O" O .-O 0-0 0 20 


O. 0 O 0 
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670 PRINT USING"2";¿CART$:PAPER 1 

£80 PEN CC(DIB):LOCATE COL>)FIL:PRINT USI 
NG"2";CARTS$(DIB) 

690 PAPER O 

700 RETURN 


Fin de mano 


710 : 

720 LOCATE 1,22:PRINT SPACE$(30):LOCATE 
15,15:PRINT SPACE$(20):LOCATE 15,13:PEN 
1:PRINT"MANO,_,DE_ AMSTRAD" :FOR I=1 TO NCO: 
COL=4*1-3:FIL=14:DIB=MANO(1):GOSUB 460:N 
EXT 

730 PEN 1:LOCATE 1,25:PRINT"TUS PUNTOS: 
"5PPTS; :PRINT"PUNTOS, DEL AMSTRAD: "¡OPTS 
740 FOR 1=1 TO £6000:NEXT 

750 LOCATE 1,25:PRINT SPACE$(39):1F OPTS 
>31 THEN 770 

760 IF OPTS>PPTS THEN 870 ELSE IF PPTS=0 
PTS THEN CLS:PRINT"ESTO,_ES,_UN_ EMPATE !!": 
GOTO “790 

770 CLS:PRINT"TULGANAS!!":TOTAL=TOTAL+AP 
STA:GOTO 790 


Nuevo intento o fin 


780 : 

790 FOR I=1 TO 4000:NEXT 

800 FOR I=1 TO 100:J=INT(RND(1)*52)+1:K= 
INT(RND(1)+52)+1: T=BARJA(J) :BARJA(J)=BAR 
JA(K):BARJA(K)=T: NEXT 

810 OPTS=0:NCO=0: PARO=0: APSTA=0 

820 PRINT: INPUT"OTRALMANO"3X$: 1F X$="S"0O 
R X$="s"THEN 530 

830 PRINT:PRINT"TULCONTADOR:.,"3:PRINT US 
ING"HHRHRHRRRRRRR"S TOTAL:PRINT 

840 IF TOTAL<O THEN PRINT"LO,_LLEVAS,_CLAR 
O!! "ELSE PRINT"ENHORABUENALPOR, TUS. EXITO 
s: 1!" 

850 PRINT:END 
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Pierde el jugador 


860 : 

870 FOR I=1 TO 2000:NEXT:CLS:PRINT"AMSTR 
AD,_GANA!!":TOTAL=TOTAL-APSTA 

880 GOTO 790 


Tablas de comprobación 


10 = 4223 310 = 7246 610 = 5781 
20 = 1178 320 = 10104 5620 = 7446 
30 = 8487 330 = 10293 630 = 5275 
40 = 3351 340 = 12006 5640 = 3759 
50 = 4666 350 = 11865 650 = O 

60 = 3000 360 = 1917 5660 = 1203 
70 = 3026 370 = 10065 570 = 1288 
80 = 3952 380 = 23622 680 = 3459 
90 = 3890 390 = 11869 690 = 200 
100 = 2351 400 = 5403 700 = 201 
110 = 3803 410 = 11734 710= 0 
120 = 3182 420 = 7283 720 = 8918 
130 = 3569 430 = 11747 730 = 4312 
140 = 7416 440 = 9026 740 = 1200 
150 = 4125 450 = 13059 750 = 2245 
160 = 3844 4560 = 2358 760 = 5532 
170 = 2627 470 = 13109 770 = 3335 
180 = 1916 480 = 2342 780 = O 
190 = 1980 490 = 13099 790 = 1336 
200 = 4829 500 = 2338 800 = 9199 
210 = 3774 510 = 10093 810 = 2812 
220 = 8879 520 = O 820 = 3387 
230 = 9491 530 = 549 830 = 3097 
240 = 9543 540 = 4144 840 = 5058 
250 = 9595 550 = 4088 850 = 376 
260 = B139 560 = 3711 8560 = O 
270 = 4903 570 = 3641 870 = 4737 
280 = 4919 580 = O 880 = 247 
290 = 4909 590 = 10359 

300 = 4356 500 = 8145 TOTAL = 443541 
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El detective 30 
barato 


ti hinItao Lon de hotel 

Ves: 

MADA 

Las salidas visibles estani 
sur 


Que quieres hacer? 


Clasificación: 


JUEGO DE AVENTURAS 


Esta es una aventura conversacional sencilla. El objetivo del juego es encontrar el 
microfilm secreto y dárselo a tu contacto. Durante el camino encontrarás algunos 
personajes poco amistosos. Si ellos deciden atacarte, puedes defenderte con una de las 
armas existentes en los alrededores. Puede que alguna vez necesites mirar por ti 
mismo. 

Las órdenes son los verbos y objetos usuales y el vocabulario es completamente 
estándar, pero, si una palabra no funciona, intenta con una diferente. 


SUGERENCIAS DE PROGRAMACION 


Para hacerlo más difícil, reduce simplemente los puntos de acierto (HP) o haz que 
los ataques sean más frecuentes. Podría ser agradable añadir algunos gráficos y una 
rutina de sonido. El juego podría hacerse más complejo añadiendo algunos laberintos 
y un ladrón. 


Variables del programa 


A$ Verbo. 
BS Objeto. 
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DS(X) Descripción de la habitación. 

DS,ES$ Código. 

L(X) Número de la habitación. 

OS$,W$ Cadenas de objetos y verbos abreviados. 
OS(X) Objetos. 


Estructura del programa 


Líneas Función] Actividad 


10-40 Inicializar variables 
60-280 Crea los datos para las habitaciones y los objetos 
300-380 Fija ventana de entrada de datos y lee las órdenes del jugador 
400-480 Muestra inventario 
500-770 Comprueba verbo y objeto 
790-920 Comprueba movimientos y describe la habitación 
940-970 Comprueba verbo y llama descripción del objeto 
990-1470 Mensajes 
1490-1810 Introducción e instrucciones 
1830 Calcula los puntos de acierto 
1850-1860 Rutina de sonido 
1880-2700 Mensajes 
2720-2780 Rutina de teléfono 
2800-2850 Código y misión terminada 
3100-3160 Mensajes 
3180-3250 Espera para pulsar tecla 
3270-3320 Fin del juego 


Inicializar variables e introducción 


10 RANDOMIZE TIME 
20 MODE 1 

30 CLEAR: WINDOW+*O,1,40,1,20 

40 DIM L(38),0$(45),H(11),P(17,6),D$(17) 
:PQ=38 


Fija los datos para las habitaciones y objetos 


50 : 
60 FOR X=1 TO 8:D$=D$+CHR$(INT(RND(4)+*25 


O. E <Q O 
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)+55) :E$=E$+CHR$( INT(ORND(1)26)+65) : NEXT 
X 

70 FOR X=1 TO 30:READ L(X):NEXT X:FOR X= 
1 TO 30: 1F L(X)=0 THEN L(X)=INT(RND(1)+*1 

8)+1:1F L(X)=18 THEN L(X>=25 

80 NEXT X 

90 DATA 13,5,14,2,16,0,0,11,3,10,20,25,9» 
11,6,)4,12,14,1,8,)8,)0)25,)0,259:10,729,+0,859 
100 FOR X=31 TO 38:L(X)=INT(RND(1)+*17)+1 
¿NEXT X:FOR X=1 TO 11:READ H(X):NEXT X:F 

OR X=1 TO 44:READ O$(X):NEXT X 

110 FOR X=18e TO 38:1IF L(X)=S AND X<>27 T 

HEN L(X)=25 

120 NEXT X 

130 DATA 20,40,100,20,400,75,179,1005,755 
100,100 

140 DATA Pastor, Aleman»TiburonsHombre,En 
mascarado»,Dos,_EnamoradoSs», Una, Pandilla 
150 DATA Wino,el,inavajas)Lemnny,el,usurer 
o»Teddy,eliantorcha,Guarda,del,casino»Po 
sadera»Contacto»Barandilla 

16560 DATA Tragaperras»CochesBicicleta,Sal 
vavidas»Puertas,cerradas»,Compuerta,bloqu 
eada»)Basurero 

170 DATA Armario»Bote,de,gas»Cuchillo,Pa 
lo,Telefono,2500000,enimetalico»Balas 
180 DATA Cana,de,pescar »Encendedor »Llave 
sjEscopeta»Periodico»Fichas,de,,1000, pese 
tas,)Cubilete,Detector,de,metales,Mensaje 
190 DATA Maleta),)Linterna»)Microfilm,Norte 
»Sur ,Este,Deste,Arriba»Abajo 

200 FOR Y=1 TO 16:FOR X=1 TO 6:READ P(Y, 
X)>:¿NEXT X>,Y: FOR X=1 TO 17:READ D$(X):NEX 
TX 

210 DATA 1,2,)+3>,4,1,2»6+8>»»10,9,1,,10» 
14,7)4>5,1631,593593934>>0>>>3)233033430>» 
15>9»»219»11 

e2o DATA 3339799» 933»»»9»1499»11,183,15,10» 
12,12,1,3,13,311,14>11,16313,333,12%» 
r»r16,14,)14» 

230 0O$="PASTIBHOMDOSUNAWINLENTEDGUAPOSCO 
NBARTRACOCBICSALPUECOMBASARMBOTCUCPAL" 
240 0O$=0$+"TEL250BALCANENCLLAESCPERF ICCU 
BDETMENMALL INMICNORSURESTOESARRABA" 

250 W$="IRCOCAMILEATABENDALL " :CLS: BORDER 


O 


O 
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O:PAPER O:GOTO 1490 
260 DATA ACERALENFRENTE,, DEL, CASINO, ACERA 
“ENFRENTE, DELLA, CASALDELBANOS »ENTRADALAL 
LLASINO, PLAYA 
270 DATA AGUA )MUELLE,,DEPORTIVO,DIQUE,CAS 
ALDEL,BANOS > CASINO. ENLHOTEL , TEATROLEN,,HOT 
EL,CALLE 
280 DATA VESTIBULO, DEL, HOTEL , CALLEJON_TR 
ASERO > APARCAMIENTO» TULHABITACION, DEL HOTE 
L)DEBAJO_DE,_LAL_ ACERA», COCHE 


Fija la ventana de entrada de datos y lee las órdenes 


del jugador 


290 : 

300 WINDOW+15,1,40,23,25:CLS$1: INPUTH1,As 
:ab=UPPERS$(a$):FB=0:FOR KY=1 TO LEN(AS$): 
IF MID$(A$,KY,1)=",, "AND LEN(A$)>KY+1 THE 
N B$=MID$(A4$,KY+15,3) 

310 IF MID$(A$,KY,1)=",,"THEN DP=1 

320 NEXT KY:IF LEN(A$)>1 THEN A$=LEFTS$(A 
$,2) 

330 IF DP<>1 THEN B$="":DP=0 

340 IF B$<>""AND LEN(B$)<>3 THEN 300 

350 IF LEN(A$)<>2 THEN 300 

360 IF RIGHTS$(B$,1)=",, "THEN 300 

370 CLS 

380 RETURN 


Muestra inventario en la ventana de texto 


390 : 

400 WINDOW 1,40,1,21:CLS:PRINT"Estas, lle 
vando,:.,":FOR EQ=1 TO 38:IF L(EQ)<>0 THE 
N 470 

410 INK 1,24 

420 QO$=0$(E0Q) 

430 PRINT LEFT$(0$,1); 

440 Q$=RIGHT$(0$,LEN(Q$)-1) 

450 PRINT LOWER$(0Q$) 

460 Y=1 

470 NEXT: IF Y=0 THEN PRINT"Nada":*RETURN 
480 RETURN 


O 
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Ajusta y comprueba verbo 


500 IF A$="EX"THEN A$="MI" 

510 IF B$="PAR"THEN B$="DOS" 

50 IF B$="PES"THEN B$="CAN" 

530 IF B$="ENM"THEN Bs$="HOM" 

540 IF A$="GO"THEN As$="AT" 

550 IF A$="PE"THEN A$="AT" 

560 IF B*$="INC"THEN B$="TED" 

570 IF B$="PRE"THEN B$="LEN" 

580 IF B*$="DIN"THEN B$="250" 

590 IF A$="EQ"THEN Y=0:GOSUB 400:GOTO 11 


£00 IF B$="MAQ"THEN Bs$="TRA" 

610 IF B$="AUT"THEN B$="COC" 

620 IF A$="MA"THEN As$="AT" 

630 IF B$="VAR"THEN B$="PAL" 

640 IF A$="VE"THEN A$="LE" 

650 IF A$="DE"THEN A$="DA" 

660 IF B$="GRU" THEN B$="PAN" 

670 IF Bs$="PAP"THEN B$="BAS" 

£80 IF A$="IN"THEN CLS:GOSUB 14610:GOTO 1 


£90 IF B$="PIE"THEN B$="FIC" 
700 IF B$="VIG"THEN B$="GUA" 
710 IF B$="FLO"THEN B$="SAL" 
720 IF B$="PERR"THEN B$="PAS" 
730 IF A$="PA"THEN A$="DA" 
740 IF B$="POR"THEN B+$="COM" 
750 IF A$="TO"THEN A$="CO" 
760 IF B$="MEC"THEN B$="ENC" 
770 IF B$="ENA"THEN Bs$="DOS" 


Comprueba movimientos del jugador y describe 


habitación 


780 : 

790 FOR Y=1 TO LEN(W$): IF MID$(W$,Y,2)=A 
$ THEN F=(Y+1)/2:GOTO 810 

800 NEXT Y:F=0 

810 FOR X=1 TO LEN(O$) STEP 3:1F MID$(0s 
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,X53)=B$ THEN S=INT((X+2)/3):GOTO 830 

820 NEXT X:IF(S>45 OR S<1)AND B$<>""THEN 
=-1 

830 IF F<X1 OR F>10 THEN PRINT"Que,infier 

noS».Mac!":GOTO 1120 

840 ON F-1 GOTO 2000,1150,940,1060,2120, 

1220,1330,1380,2720 

850 MM=MM+1: 1F MM/S=INT(MM/S)THEN GOSUB 

1950 

860 IF PJ<>O THEN S=1 

870 IF S<39 THEN GOSUB 3110:GOTO 1120 

880 IF S>38 THEN S=S-38 

890 IF P(L,S)THEN L=P(L,S):L2=L 

900 IF IT=0 THEN GOSUB 2940:PRINT"estas., 

enn" :PRINT LOWERS(D$(L)):Y=0: IF L=S5 AND 

C>4 THEN 2080 ELSE 920 

910 IF IT<>O THEN GOSUB 2960:PRINT"estas 

ven," :PRINT LOWERS$S(D$(L)):Y=0: IF L=5 AND 
C>4 THEN 2080 

920 GOSUB 1880:GOSUB 1180:GOTO 1120 


Comprueba verbo y escribe descripción del objeto 


930 : 

940 IF B$=""THEN 900 

950 DD=1:IF S<39 AND S>O THEN 990 

960 S=S-38:Le=P(L,S):1IF Le=0 THEN L2=L 
970 GOSUB 1880:PRINT"en,," ¡LOWER$(D$(L2)) 
:¿L2=L:GOTO 1120 


Muestra mensajes del código y microfilm 


980 : 

990 IF L(S)<>L AND L(S)<>0 THEN PRINT"es 
o.no,esta,aqui!":GOTO 1120 

1000 IF S=31 AND RND(TIME/300)>0.3 THEN 
PRINT"el,codigo,es.,";D$:GOTO 1120 

1010 IF S=31 THEN PRINT"el,codigo,es.”";E 
$:GOTO 1120 

1020 IF S=35 AND L(38)<>0 THEN GOSUB 283 
O:PRINT"Microfilm_en,”:PRINT LOWERS$(D*$ (X 
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O. 0 0 0 0-0 0 O O O O 0 0 
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)):L(38)=X:PQ=37:GOTO 1120 

1030 IF S=20 OR S=26 THEN PRINT"cerrado" 
¿GOTO 1120 

1040 PRINT"Es,"¿¡LOWER$(0$(S))3",_mormal,,y 
ncorriente":GOTO 1120 


Impide lectura 


1050 : 

1060 IF S<>31 AND S<>35 THEN PRINT"No,.ha 
y.unada,para,leer":GOTO 1120 

1070 IF L(S)<>0 THEN PRINT"No,lo,tienes! 
":GOTO 1120 

1080 GOTO 1000 


Cierra todas las salidas 


1090 : 

1100 L=15:L2=L:FOR I=1 TO Z2C:FOR DN=0 TO 
2:PRINT:NEXT DN:GOSUB 3180:NEXT I 

1110 PRINT:PRINT"estas,ien,”":PRINT LOWERS$ 
(D$(L)):GOSUB 1880:GOSUB 1180 

1120 A$="":B$="":5=0:F=0:H=0 

1130 GOSUB 2440:GOSUB 300:GOTO 500 


Mensajes para cavar, salidas bloqueadas y salidas legales 


1140 : 

1150 IF L=4 AND L(33)=0 THEN GOSUB 2990: 
GOTO 1120 

11650 IF L=4 THEN PRINT"No,tienesininguna 
uherramienta":GOTO 1120 

1170 PRINT"No,puedes,cavariaqui":GOTO 11 
20 

1180 IF PJ=1 THEN PRINT"Todas,las,isalida 
sivisibles.iestan,bloqueadas"”: RETURN 
1190 PRINT"Las,salidas.visibles,estan:.' 
¿FOR X=1 TO 6: IF P(L5X)>>0 AND P(L>,X)<>L 
THEN PRINT LOWERS(0$(X+38))3",,"3 

1200 NEXT:PRINT:RETURN 
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Mensajes para abrir 


1210 : 

1220 IF L(S)<>L THEN PRINT"No,aqui!":PRI 
NT:GOTO 1120 

1230 IF S=14 AND L(29)=0 AND L(21)=0 THE 
N L(29)=-1:PRINT"coche,aebierto!":GOTO 11 
20 E 

1240 IF S=14 AND L(30)=0 AND L(26)=0 THE 
N PRINT"dispara,a,traves,de,la,ventana,p 
2d. Labor irlo":L(29)=-1:GOTO 1120 
1250 IF S=20 AND L(29)=0 THEN GOSUB 2560 
:GOSUB 2630:GOSUB 1880:GOTO 1120 

1260 IF S=36 AND L(29)<>0 THEN PRINT"cer 
rado":PRINT:GOTO 1120 

1270 IF S=346 AND L(29)=0 THEN GOSUB 2560 
:GOSUB 1880:GOSUB 2800:GOTO 1120 

1280 IF S=17 THEN PRINT"Conducto,de,.baja 
da,de,servicio":*GOSUB 3070:L2=L:PJ=0:GOT 
OD 900 

1290 IF S=18 AND L(29)=0 THEN GOSUB 24630 
:0$(18)="COMPUERTAL_ ABIERTA" :GOTO 1120 
1300 IF(S=18 OR S=20)AND L(29)<>0 THEN P 
RINT"esta,cerrada":PRINT:GOTO 1120 

1310 GOTO 1120 


La lata explota 


1320 : 

1330 IF S<>37 AND S<>28 THEN PRINT"No,se 
upuede!":PRINT:GOTO 1120 

1340 IF L(S)<>0 THEN PRINT"No,.hay!!":PRI 
NT:GOTO 1120 

1350 IF S=28 AND (L(21)=0 OR L(21)=L)> TH 
EN GOSUB 2870:PRINT:PRINT "el,¡gas,se,es 
capa».puede,jexplotar":PRINT:GOTO 1120 
1350 FL=1:GOTO 1120 
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1370 : 

1380 IF L(S)<>0 THEN PRINT"No.hay!”:PRIN 
T:GOTO 1120 

1390 IF S=25 OR S=36 THEN C=C-1 

1400 IF S=21 AND L(8)=L THEN PRINT 0$(8) 
¡",cogionel,igas, y":L(S)=30:C=C-1:S5=8:605 
UB 2550:GOTO 1120 

1410 C=C-1:L(S)=L 

1420 IF S=25 AND L(S5S)=L THEN PRINT 0$(5) 
¡3",cogionel,dinero,y”":1L(S)=30:S=5:G0SUB 

2550:GOTO 1120 

1430 IF S=38 AND L(11)=L THEN 2810 

1440 IF S=25S AND L(7)=L THEN PRINT 0$(77) 
:PRINT"pagado":L(S)=30:C=C-1:S=7:GOSUB 2 
550:GOTO 1120 

1450 IF S=32 AND L(7)=L THEN PRINT 0$(7) 
:PRINT"pagado":L(S)=30:C=C-1:S=7:GOSUB e 
550:GOTO 1120 

1460 IF S=38 AND L(10)=L THEN PRINT Os$(1 
0);"el,agente,enemigo,te.neutraliza,de,c 
ualquier,modo":PRINT:GOTO 2380 

1470 GOTO 1120 


Introducción 


1480 : 

1490 CLS:LOCATE 15,2:PRINT"Bienvenido,a"” 
:LOCATE 10,4:PRINT"EL, DETECTIVE, BARATO" 
1500 PRINT:+PRINT" unnunuuuumunmnSupera,tu,fra 
caso":LOCATE 10,8:PRINT"Y JUEGA, DE, NUEVO 
pp 

1510 LOCATE 1,20:PRINT",,. Quieres,conocer 
ulanhistoria,(S/N)2"; 

1520 PRK$=UPPER$( INKEY$):1F PRK$=""THEN 
1520 ELSE IF PRK$="S"OR PRK$="N"THEN 153 
O ELSE PRINT CHR$(7)5;CHR$(7):GOTO 1520 
1530 IF PRK$="N"THEN GOSUB 1830:2C=1:GOT 
O 1100 
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Instrucciones 


1540 : 

1550 CLS:LOCATE 12,2:PRINT"La,historia,c 
omienza,as1." 

1560 LOCATE 1,8:PRINT"Trabajas.para,una, 
agencia,del,Gobierno" 

1570 PRINT:PRINT "intentando, recuperar,u 
nomicrofilm_robado"” 

1580 PRINT "y, pasarlo,a,ntu,contacto.” 
1590 PRINT:PRINT"Tienes,inoticias,de, que 
ellmicrofilm_esta":PRINT "en,un, refugio, 
de,la,costa,este.” 

165600 GOSUB 3180:CLS:GOSUB 1610:GOTO 1760 
1510 PRINT"Para,ver,las,instrucciones,es 
cribeiicuumno ¿PRINT" LL INSTR":PRINT 

1620 PRINT"Rara,saber,lo,que,hasicogido,, 
escribeuicioo” ¿PRINT" LL EQUIPAJE" :PRINT 
1530 PRINT"Para,conocer,tu,posicion,ihtend 
ras._QUliuuuoo" ¿PRINT",”mirar”,o,*explorar 
> ¿"¡¿PRINT 

16540 PRINT"Quizas,te, convenga, hacer,un,._p 
lano,paranno”" :PRINT"no, perderte, yulocali 
zar,los,iobjetos.":PRINT 

1550 GOSUB 3180:CLS 

1560 PRINT ",_., PROBLEMAS, QUE, PUEDEN, ,APARE 
CER, :":PRINT 

1570 PRINT ",,.lLos.iataques,se,pueden,repe 
ler,porilannom.”":PRINT "fuerza,o,mediant 
eusobornos»,*dejando*.i..m”¿oe ¿PRINT "algo, 
ancambio.'":PRINT 

15480 PRINT "Losimensajes.ofrecen. pistas. 
1590 PRINT:PRINT "Las,maletas,se,abren,_c 
on,llaves.":PRINT 

1700 PRINT "Si,un,sitionesta,jobscuro»,te 
ndras,_QUBliico  ¿PRINT ",, encender”, algo,.p 
ara,ver.":PRINT 

1710 PRINT "No, puedes,,”coger”,mas,de,jó,,c 
osas.":PRINT 

1720 GOSUB 3180 

1730 LOCATE 45,5:PRINT "Utiliza,el,codigo 
upara":LOCATE 4,7:PRINT "identificarte,c 


on.tu,ncontacto»,":LOCATE 4,9:PRINT "despu 
es.'dale”,el,microfilm." 

1740 GOSUB 3180 

1750 RETURN 

1760 GOSUB 1830:PRINT:PRINT", Seras.hosp 
italizado,si,tus, puntos," 

1770 PRINT:*PRINT ",,.llegan,a,cero" 

1780 GOSUB 3180 

1790 PRINT:PRINT",,. Usa,DOS,palabras,de,,l 
auforma:,," :PRINT:PRINT",.,.VERBO_OBJETO. uu 
uomPp-.ej.:comer,patatas":PRINT 

1800 PRINT:*PRINT",,. Puedes, usar,eluletras. 
del, verbo, y":*PRINT:PRINT",,.,3,del, objeto. 


1810 PRINT:PRINT" ouuuu..BUENA,_SUERTE... 
..":GOSUB 3180:LOCATE 1,1:CLS:GOTO 1100 


Calcula puntos de acierto 


1820 : 
1830 HP=INT(RND(2)*25)+25:CLS:LOCATE 89,5 
:PRINT"Tienes,,";HP;"puntos":LOCATE 1,8:R 
ETURN 


Rutina de sonido 


1840 : 

1850 FOR J=3 TO 15:ENV J,100,2,20: SOUND 
1,50150+J,4»1:NEXT J 

1860 FOR J=15 TO 1 STEP-1:ENV J,100,2,20 
¿SOUND 1,50,50,3J,4>1:NEXT J2:RETURN 


Objetos visibles en la sala 


1870 : 

1880 IF Le=10 OR Le=16 OR L2=14 THEN GOS 
UB 2580 

1890 IF FL=2 THEN FL=0:GOTO 1930 

1900 Y=0:YY=0:GOSUB 26580:PRINT:PRINT"Ves 
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21," *FOR X=1 TO 38 

1910 IF L(X)=Le8e THEN PRINT O$(X)3"."32Y= 
Y+1:IF X<11 AND PJ=0 THEN GOSUB 2450 
1920 NEXT X:PRINT:IF Y=0 THEN PRINT"NADA 


1930 PRINT:DD=O:RETURN 


Rutina aleatoria para los objetos 


1940 : 

1950 FOR X=33 TO PQ 

1960 IF L(X)<>0 THEN L(X)=INT(RND(1)+18) 
+1:IF L(X)=18 THEN L(X)=25 

1970 IF(X=34 OR X=38)AND L(X)=S THEN 196 
0) 

1980 NEXT X:GOSUB 3020:RETURN 


Mensajes de error para tomar cosas 


1990 : 

2000 IF S>38 THEN PRINT"No,puedes, coger. 
una...direccion,,":GOTO 1120 

2010 IF S<21 THEN PRINT"No, puedes,tomar,, 
eso!!":GOTO 1120 

2020 IF S=24 THEN PRINT"esta,sujeto,anla 
upared”:GOTO 1120 

2030 IF L(S)<>L THEN PRINT"eso,no,esta,a 
qui!”":GOTO 1120 

2040 IF C>6 THEN PRINT"No,puedes.,llevaru 
tanto":GOTO 1120 

2050 IF S=38 THEN HP=HP+10 

2060 IF S=25 OR S=36 THEN C=C+1 

2070 L(S)=0:C=C+1:GOTO 1120 

2080 GOSUB 2100:PRINT"Llevas,idemasiado,p 
eso,para.unmadar":GOSUB 2100:PRINT"Te,ahog 
aste"”:GOSUB 2100 

2090 GOSUB 2890:PRINT"pero,has, revivido, 
gracias.ia,nlos.paramedicos":GOTO 2380 
2100 RETURN 
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Rutina de ahogarse 


e110 : 

2120 IF S>11 THEN PRINT"No,hay,nada, para 

natacar”:G0TO 1120 

2130 IF L(S)<>L THEN PRINT"No,_hay!":G0OTO 
1120 

2140 INPUT"con,_que";X$:B$=LEFT+$(X$,3):BS$ 

=UPPERS$(B$) 

2150 IF B$="PIE"THEN PRINT"buen,golpe,,.,C 

inturoninegro!":H=0:DP=4:GOTO 2210 

2160 IF B$="MAN"THEN H=0:DP=2:GOTO 2210 

2170 FOR X=1 TO LEN(OS$S)STEP 3:1F MID+(0$ 
,»X,3)=B$THEN H=INT((X+2)/3):GOTO 1120 

2180 NEXT X 

2190 IF L(H)<>0 THEN PRINT"No, tienes,.eso 

"GOTO 1120 

2200 IF H<>22 AND H<>23- AND H<>30 AND H< 

>27 AND H<>28 AND H<>34 AND H<>37 THEN P 

RINT"Eso,no,esiun, arma":G0OTO 1120 


"2210 IF H=30 AND L(26)<>0 THEN PRINT"NO,, 


se,usa,solo,como,una, cachiporra":DP=5 
2220 IF S=1 OR S=4 THEN DD=1 

2230 IF S=2 THEN DD=2 

2240 IF H=23 OR H=27 THEN DP=3 

2250 IF S=3 OR S=8 OR S=10 OR S=11 THEN 
DD=4 

2260 IF S=5 THEN DD=10 

2270 IF S=6 OR S=9 THEN DD=5 

2280 IF H=28 OR H=37 OR H=22 THEN DP=5 
2290 IF S=” THEN DD=6 

2300 IF H=30 THEN DP=12 

2310 PRINT"Tienes,";3HP;",puntos,,"” :PRINT 
0$(S)3",.tiene,";H(S);",.puntos,,” 

2320 YO=INT(RND(1)*DP*3)+DP:OP=INT(RND (4 
) *DD*+3):PRINT"Atacas.y.provocas,”"3YO;3",._p 
untos,de,danos" 

2330 PRINT:PRINT O$(S);:PRINT", te,ataca,, 
y.uprovoca,” :PRINT OP;",_puntoside,danos”: 
H(S)=H(S)-YO 

2340 IF H(S)<1 THEN PRINT:PRINT "VENCIST 
ELAL,TULOPONENTE ! ":L(S)=30:PJ=0: HP=HP+3x*xD 
D:L(H)=25:C=C-1:GOTO 1120 
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2350 IF RND(1)>0.85 THEN GOSUB 2550 

2360 HP=HP-OP: IF HP<1 THEN GOTO 2380 
2370 GOTO 1120 

2380 PRINT CHR$(7):PRINT"ESTAS,_EN_EL,_,HOS 
PITAL.":PRINT:IF L(38)<>0 THEN PRINT "si 
nnel,microfilm!" 

2390 PRINT:PRINT"QUIERES, REGRESARLALLALH 
ABITACION, DEL uu HOTEL, ELINTENTARLO,,DE LN 
UEVO"; 

2400 INPUT REP$:REP$=UPPERS(REP$):1F LEF 
TS(REP$,1)="S" THEN PJ=0:HP=10:2C=0:CLS: 
GOTO 1100 

2410 IF LEFTS(REP$,1)="N" THEN 3270 

2420 PRINT CHR$(7)5;CHR$(7)¿CHR$(7):GOTO 
2400 

2430 END 

2440 PRINT:PRINT"Que,quieres.hacer?":RET 
URN 

2450 IF(X=4 OR X=6)AND RND(1)>0.25 THEN 
RETURN 

2460 IF X>8 AND RND(1)>0.4 THEN RETURN 
2470 IF F=4 THEN RETURN 

2480 IF RND(6)<0.35 THEN RETURN 

2490 IF X=4 THEN 0O$(X)="DOS_ENAMODRADOS" 
2500 OP=INT(RND(S5)*10):PRINT CHR$(7):PRI 
NT 0$(X);:PRINT", tenataca,y.oprovoca,,” :PR 
INT OP;3",puntos.en,danos" 

es10 HP=HP-0OP: 1F HP<1 THEN 2380 

2520 PJ=1:RETURN 

2530 PRINT CHR$(7) 

2540 RETURN 

2550 PJ=0:L(S)=25:1T=100:PRINT CHR$(7):P 
RINT"despues.huyes":RETURN 

2560 FOR X=12 TO 30:IF L(X>=25 AND RND(1 
)>0.5 THEN L(X)=L 

2570 NEXT X:RETURN 

2580 IF L(28)<>0 AND L(37)<>0 THEN PRINT 
"Esta,O0sCcuro»,,.no,se,ve,nada":FL=2:RETURN 
2590 IF L(37)=0 AND FL=1 THEN RETURN 
2600 IF L(28)=0 AND FL=1 THEN RETURN 
2610 IF L(37)<>0 OR FL<>1 THEN PRINT"Est 
a,0scuro»>,no,se, ve,nada":FL=2:RETURN 
2620 IF L(28)<>0 OR FL<>1 THEN PRINT"Est 
a.,0scuro»,,no, se, ve,nnmada":FL=2:RETURN 
2630 T=0:FOR X=1 TO 6: 1F P(L,X>)=0 THEN T 
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2640 NEXT X:X=RND(-TIME/300) 

2650 IF T<>0 THEN P(L,T)=INT(RND(1)+*17)+ 
1:1F P(L,T)=L THEN 24650 

2660 IF T<>0 THEN PRINT"pasajeusecreto": 
T=0:RETURN 

2670 RETURN 

2680 T=0:FOR X=1 TO 6: 1F AX(X)<>0 THEN T 
=1 

2690 NEXT X:IF T<>0 THEN YY=3 

2700 RETURN 


Rutina de teléfono 


2710 : 

2720 IF S>11 THEN PRINT"NO,_ PUEDES. LLAMAR 
LJALUN,_OBJETO!":GOTO 1120 

2730 1F L(24)<>L THEN PRINT"NO_HAY,_TELEF 
ONO!":GOTO 1120 

2740 IF S<>11 THEN PRINT"LA,LINEA_ESTA,_O 
CUPADA":GOTO 1120 

2750 GOSUB 2910:PRINT"LLAMADA,ESTABLECID 
ar" 

2760 INPUT", ESCRIBE,EL,_CODIGO,.”",C$:C$=U 
PPER$(C$) 

2770 IF C$<>D$ THEN PRINT" INCORRECTO" :G0O 
TO 1120 

2780 IF C$=D$% THEN L(11)=INT(RND(1)*16)+ 
1:PRINT"CODIGO,_,CORRECTO":GOTO 1120 


Muestra código y rutina de fin de misión 


2790 : 

2800 PRINT"PAPEL,_CON,EL,_CODIGO":PRINT"LA 
LPALABRALCODIGOLES. :.";D$:RETURN 

2810 CLS $*3:FOR ERE=1 TO 10:FOR ER=300 T 
O 1000 STEP S5SO:SOUND 129,T,10,15:NEXT ER 
¿NEXT ERE 

2820 GOSUB 2530:PRINT",_.L HAS, TERMINADO,,LA 
uMISION!!":FOR ER=1 TO 12:LOCATE 1,1:PRI 
NT CHR$(11):NEXT ER:END 
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2830 X=INT(RND(1)*17)+1:1F L(20)=30 AND 
X=17 THEN 2830 

2840 IF X=5 THEN 2830 

2850 RETURN 


Sonido corto 


2860 : 

2870 PRINT CHR$(7) 
2880 RETURN 

2890 PRINT CHR$(7) 
2900 RETURN 

2910 PRINT CHR$(7) 
2920 RETURN 


Bandera de comprobación 


2930 : 

2940 IF F=4 THEN RETURN 

2950 IT=(INT(RND(2)*3)+1)*100 
2960 PRINT CHR$(7) 

2970 RETURN 


Rutina de agua y balas 


2980 : 

2990 IF L(26)=0 THEN PRINT"CHOCASL_CONTRA 
LELLAGUA" :RETURN 

3000 L(26)=4:PRINT"BALAS":RETURN 


Rutina de inicialización de números aleatorios 


3010 : 

3020 FOR X=1 TO 10 

3030 IF L(X)=25 THEN L(X)=INT(RND(4)*17) 
+1 

3040 IF L(X)=5 AND X<>2 THEN L(X)=25:GOT 


o. 0 O 


O O O O QQ “O O. O O. 9 


O 


O 


O 3030 
3050 NEXT X:RETURN 


Comprueba número aleatorio 


3060 : 

3070 L=INT(RND(1)*16)+1:1F L=12 THEN 307 
0) 

3080 IT=25:RETURN 


Mensajes para puntos de acierto y coche 


3090 : 

3100 PRINT"PERDIDO";¿Y;"PUNTOS" 2: HP=HP-Y:R 
ETURN 

3110 IF S<>14 AND S<>15 AND S<>16 THEN P 
RINT"NO_PUEDES,IRL_ALLI!": RETURN 

3120 IF(S=15 OR S=16)AND L(S)<>L THEN PR 
INT "NO_HAY" : RETURN 

3130 IF S=15 OR S=16 THEN PRINT"BAJADA,_C 
ERRADA" : Y=-(S=15)*25+10+*(-(S=156)) :GOSUB 

3100:RETURN 

3140 IF S=14 AND L(29)<>-1 THEN PRINT"CE 
RRADA" : RETURN 

3150 IF S=14 AND L(29)=-1 THEN P(17,1)=L 
e:Le=L:PRINT"EN, COCHE: MIRA!" :L(29)=0:R 
ETURN 

31650 RETURN 


Espera para pulsar tecla 


3170 : 

3180 PRINT CHR$(7) 

3190 LOCATE 13,20:PRINT"PULSA,ESPACIO":2 
2=0 
3200 IF INKEY$=",,"THEN 3250 

3210 22=22+1:1F 22<100 THEN 3200 

3220 LOCATE 13,20:PRINT STRING$(13,32) 


GTO O 10 0" O 107 O. O 1 MO O 


O 


O 
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3230 IF INKEY$=",,"THEN 3250 

3240 22=22+1: 1F 22<150 THEN 3230 ELSE 31 
90 

3250 CLS:RETURN 


O 


Fin del juego 


3260 : 

3270 CLS+2e 

3280 FOR T=1 TO 36 

3290 PRINT TAB(T)"ADIOS"CHR$s (7) 
3300 NEXT T 

3310 PRINT 

3320 END 


| 
| 
| 
| 
l 
| 
| 
l 
| 
l 
| 
l 
l 
| 
| 
| 
] 
I 
' 
] 
1 
l 
l 
l 
| 
l 


Tablas de comprobación 


10 = 519 250 = 2952 490 = 0 

20 = 188 260 = 35746 500 = 1773 
30 = 716 270 = 5577 510 = 1925 
40 = 2742 280 = 6795 520 = 1910 
50= O 290 = 0 530 = 1920 
60 = 6678 300 = 9323 540 = 1765 
70 = 8723 310 = 2199 550 = 1764 
80 = 405 320 = 2821 560 = 1907 
90 = 3594 330 = 1989 570 = 1922 
100 = 73977 340 = 2034 580 = 1838 
110 = 3733 350 = 1275 590 = 2286 
120 = 405 360 = 1587 600 = 1922 
130 = 1977 370 = 138 610 = 1915 
140 = 6585 380 = 201 620 = 1737 
150 = 9319 390 = 0 630 = 1922 
160 = 8362 400 = 5lel 640 = 1766 
170 = 6115 410 = 270 650 = 1736 
180 = 10369 420 = 1033 660 = 1961 
190 = 5696 430 = 974 670 = 1907 
200 = 35945 440 = 1986 680 = 1877 
210 = 4007 450 = 756 690 = 1900 
220 = 40281 460 = 484 700 = 1919 
230 = 5674 470 = 1985 710 = 1917 
240 = 55965 480 = 201 720 = 2009 
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730 
760 
750 
760 
770 
780 
790 
800 
810 
820 
830 
840 
850 
860 
870 
880 
890 
900 
910 
920 
930 
940 
950 
960 
970 
980 


J 


O O II 


990 = 


1000 
1010 


uo 0 


1020 = 
1030 = 


1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 


"om 


1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1400 
16510 
1620 


"o0 


A 


A 


"uo" 


16430 = 


1640 
1650 
1560 
16570 
16580 
1590 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 


non 4.4. .4.p$ nan 


LT] 


1850 = 


1860 
1870 


úon 


1880 = 


1890 
1900 
1910 
1920 
1930 
1940 
1950 
1960 
1970 
1980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 
2060 
2070 


A 
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2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
2380 
2390 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 
2480 
2490 
2500 


260 


O A] 


on mon 


non uQ4 "04 


e2s1o0 
2520 
2530 
2540 
2550 
2560 
2570 


2580 = 
2590 = 


2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
2780 
2790 
2800 
2810 
2820 
2830 
2840 
2850 
2860 
2870 
2880 
2890 
2900 
2910 
2920 
2930 


Moa 


2940 
2950 
2960 
2970 
2980 
2990 
3000 
3010 
3020 
3030 
3040 
3050 
3060 
3070 
3080 
3090 
3100 
3110 
3120 
3130 
3140 
3150 
3160 
3170 
3180 
3190 
3200 
3210 
3220 
3230 
3240 
3250 
3260 
3270 
3280 
3290 
3300 
3310 
3320 


TOTAL 


uo4. 4 $ nn 


1065 
2280 
351 
201 
(0) 
3002 
1423 
O 
912 
3296 
3150 
607 
10) 
2955 
789 
O 
3186 
4284 
4003 
6502 
3121 
5877 
201 
0) 
3551 
2132 
1341 
2394 
1150 
1373 
2786 
340 
O 
189 
1030 
1559 
401 
191 
152 


938665 


Bombas 
botantes 


Clasificación : 


JUEGO 
DE TIRO AL BLANCO 


Intenta atrapar cuantas bombas te sea posible usando: “,” para mover a la 


.“” 


izquierda y “.” para mover a la derecha. 


SUGERENCIAS DE PROGRAMACION 


Podría estar bien diseñar algunos efectos de sonido cuando sale el jugador y 
niveles, de modo que cada nivel pueda tener diferentes elementos. Por ejemplo, 
obstáculos para distraer o un modo de juego más rápido. 


Variables del programa 


POSICION Posición del escudo. 
ESCUDOS Cadena de mostrar el escudo. 


PUNT Número de bombas atrapadas. 

T Temporal. 

FLAG La segunda bomba ha sido lanzada. 
N Temporal. 
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Estructura del programa 


Lineas 


10-70 


Función] Actividad 


Inicializar 


80-240 Bucle principal 
250-360  Desviar bomba 
370-480 Fin del juego 
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Inicializar juego 


10 PEN 1:MODE 1: INK O,O:PAPER O:BORDER O 
: INK 1,18: INK 2,24: INK 3,7 

20 POSICION=20 

30 SYMBOL 240,0,0,0,0,3+,15,63,2559: SYMBOL 
241,3,15,63,25595,299299)2959+25959 

40 ESCUDO$=CHR$ (240) +CHR$ (241) 

50 PUNT=0 

60 GOTO 190 


Bucle principal 


70 : 

80 FOR T=1 TO 20 

90 LOCATE POSICION,es 

100 PRINT ESCUDOS 

110 POSICION=POSICION+(INKEY (39)>-1)-C(IN 
KEY(31)>-1) 

120 IF POSICION<4 THEN POSICION=35 

130 IF POSICION>3S THEN POSICION=4 

140 LOCATE 1,1:PRINT CHR$(11) 

150 IF(TEST(POSICION*16-8,8)=2 OR TEST(P 
OSICION*15+8,8)=2 AND T=4)THEN GOSUB 250 
:GOTO 170 

150 IF T=4 AND FLAG THEN 370 

170 NEXT T 

180 FLAG=1 

190 LOCATE RND(1)*30+5,1 

200 PEN 2 

210 PRINT CHR+$(2582) 


O O <Q Or Y 


O 


220 PEN 1 
230 GOTO 80 


O 


Desviar bomba 


240 : 

250 LOCATE POSICION,e5 

260 PRINT ESCUDOS$ 

270 PEN 2 

280 FOR N=POSICION-2 TO 1 STEP-1 
290 LOCATE N,es 

300 CALL 2BD19 

310 PRINT CHR$(252) 3 CHR$ (32) 
320 NEXT N 

330 PEN 1 

340 PUNT=PUNT+1 

350 RETURN 


O : 0 O OQ "0 y 


Fin del juego 


O. ¡Qe ¡Oh de O O: 00. “O: O 


370 FOR T=8 TO 15 

380 SOUND 1,200,155,T 

390 NEXT T 

400 SOUND 1,300,1005,15 

410 FOR T=1 TO 26 

420 LOCATE 1,25 

430 PRINT CHR$(10) 

440 NEXT T 

450 LOCATE 105,10 

460 PRINT"HASL_LANZADO,,” PUNT; "BOMBAS" 
470 FOR T=1 TO 2000:NEXT T 
480 RUN 


O O 0 0 


Tablas de comprobación 


10 = 1754 so = 7el 90 = 1048 
20 = 1037 60 = 380 100 = 805 
30 = 3676 70= 0 110 = 4204 
40 = 2274 go = 918 120 = 2556 
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266 


130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


on on 


von Mon 


260 
270 
280 
290 
300 
310 
320 
330 
340 
350 


360 = 


370 
380 


390 
400 
410 
420 
430 
440 
450 
460 
470 
480 


TOTAL 


úon 


401 
587 
924 
278 
565 
401 
283 
2154 
1516 
202 


52808 


Editor 
de sprites 


Clasificación : 


UTILIDAD 


Este programa permite crear sprites en tu Amstrad, facilidad de la que carece esta 
máquina. 

Puedes seleccionar un sprite que tenga un máximo de cuatro caracteres horizonta- 
les y tres caracteres verticales. Si dispones de los datos para un sprite que desees 
modificar, entonces puedes teclearlos al comienzo. 

Para editar un sprite mueve el cursor usando las teclas del cursor y pulsa 
<ENTER > para dibujar o borrar un punto, dependiendo de lo que esté debajo del 
cursor. Pulsa “C” para introducir el modo mandato; a continuación pulsa “B” para 
borrar el sprite o “D” para obtener la representación en datos. 

Observa que el sprite está hecho de muchos caracteres, numerados vertical y 
horizontalmente. 

El cuadrado pequeño situado en la esquina superior derecha de la pantalla es el 
sprite real en el que tú estás trabajando. 


Variables del programa 


FIL, COL Fila y columna del cursor en la cuadrícula principal. 
CFILA, MCCOL Máximo número de filas y columnas en caracteres. 
CUAD (CFILA, MCCOL) Números almacenados por la cuadrícula. 

GC, GR Columna y fila de comienzo de la cuadrícula. 
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LJ Filas y columnas temporales. 


L, K Temporales usadas para guardar los números en la 
cuadrícula. 

NM, NUM, X$, POSS Temporales. 

CU Carácter bajo el cursor. 

GQ Temporales del editor. 

CH Carácter del cursor. 


Estructura del programa 


Lineas Función] Actividad 


10-180 Pantalla inicial e inicialización 
190-320 Crea pantalla 
340-470 Bucle principal 
490-570 Dibujo cuadrícula 
580-610 Dibujo sprite 
620-690 Cambia punto en cuadrícula 
700-790 Ordenes 
800-950 Imprime datos 
960-1010 Pone CU (carácter bajo cursor). 


Pantalla inicial e inicialización 


| | 
1 | 
Qs 
| 
| 10 MODE 1:INK O,OzINK 1,20: INK 2,6: INK 3 | 
O | 125 ES: 
| 20 PAPER O:CLS:BORDER 4 : 

Il. 30 PEN 1:LOCATE 15,1:PRINT"EDITOR,DE,¡SPR | 
O 1 TTES" 10 
| 40 LOCATE 1,8: INPUT"CUANTOS..CARACTERES.H | 
| ORIZONTALES,,(1-4)"3X$ 
O |. 50 IF VAL(X$)>4 OR VAL(X$)<1 THEN 40 O 
60 MCCOL=VAL(X$) 

O |! 7?0 LOCATE 1,11: INPUT"CUANTOS_CARACTERES. | O 
|. VERTICALES, ,(1-3)";X%$ 
|. 80 IF VAL(X$)>3 OR VAL(X$)<1 THEN 70 
O ! 90 CFILA=VAL(X$) NS) 
¡ 100 LOCATE 1,14:PRINT"TECLEALNUMEROS..(T) | 
| _OLCONSTRUYE_NUEVA":PRINT: INPUT"SPRITE.( 1 
O Nistixs O 
] ] 


110 IF X$="N"OR X$="n"THEN 190 


120 FOR I=1 TO CFILA 

130 FOR J=1 TO MCCOL:FOR K=1 TO 8 

140 PRINT"N. CARACTER.” ¿MCCOL*(1I-1)+J5"N 

UMERO.,";K; 

150 INPUT X$:1F VAL(X$)<0 OR VAL(X$)>255 
THEN 140 

160 CUAD(I,J,K)=VAL(X5$) 

170 NEXT:NEXT:NEXT 


Crea pantalla 


180 : 

190 BORDER O:GC=2:GR=2:CLS 

200 IF X$="N"OR X$="n"THEN 240 ELSE GOSU 

B 490 

210 FOR I=1 TO CFILA:FOR J=1 TO MCCOL 

220 GOSUB 580 

230 NEXT:NEXT 

240 PEN 2:LOCATE 1,1:PRINT CHR$(150):2 FOR 
I=2 TO GR+CFILA*8-1:LOCATE GC-1,I:PRINT 
CHR$(149):LOCATE GC+MCCOL+*8),1I:PRINT CHR 

$(149): NEXT 

250 FOR I=2 TO GC+MCCOL*8-1:LOCATE 1,GR- 
1:PRINT CHR$(154):NEXT 

260 LOCATE GC+MCCOL+*8,1:PRINT CHR$(156) 

270 FOR 1=356 TO 35+MCCOL:LOCATE I,1:PRIN 

T CHR$(154):LOCATE I,CFILA+2:PRINT CHR$( 
154) ¿NEXT 

280 FOR I=2 TO 1+CFILA:LOCATE 35,1:PRINT 
CHR$(149):LOCATE 36+MCCOL),I:PRINT CHR$ ( 
149): NEXT 

290 LOCATE 35,1:PRINT CHR$(150):LOCATE 3 

£6+MCCOL),1:PRINT CHR$(156) 

300 LOCATE 35,2+CFILA:PRINT CHR$(147):LO 

CATE 36+MCCOL,2+CFILA:PRINT CHR*$(153) 

310 IF CFILA=3 THEN 340 

320 FOR 1I=GC TO MCCOL*8+1:LOCATE 1,GR+CF 
ILA*8:PRINT CHR$(154):NEXT:LOCATE 1,GR+C 
FILA*8:PRINT CHR$(147):LOCATE MCCOL+*8+2,) 

GR+CFILA*8:PRINT CHR$(153) 


O 


O 


O 50 10 0 6 O ¿0 O - -0) -O O Y 


211 


O: UU QQ Y 


0.00 O O 0. O. O y 


O 
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Bucle principal 


330 : 

340 COL=2:FIL=2:GOSUB 960:C=0:0=1:CH=143 
350 X$=INKEYS$:C=C+1 

360 IF C=7 THEN C=0:0=1-Q 

370 IF Q<>0 THEN 400 

380 IF CH=143 THEN.CH=0:LOCATE COL,FIL:P 
EN 1:PRINT CHR$(CU):Q=1:GOTO 400 

390 LOCATE COL,FIL:PEN 1:PRINT CHR$(143) 
:Q=1 :CH=143 

400 IF X$=""THEN 350 

410 IF INKEY(2)>-1 THEN LOCATE COL,FIL:P 

RINT CHR$(CU)>:¿IF FIL>GR-2+(CFILA)*8 THEN 
350 ELSE FIL=FIL+1:GOSUB 960:GOTO 350 

420 IF INKEY(1)>-1 THEN LOCATE COL),FIL:P 

RINT CHR$(CU): IF COL>GC-2+MCCOL*8 THEN 3 

SO ELSE COL=COL+1:GOSUB 960:GOTO 350 

430 IF INKEY(O0)>-1 THEN LOCATE COL),FIL:P 

RINT CHR$(CU): IF FIL<GR+1 THEN 350 ELSE 

FIL=FIL-1:GOSUB 960:GOTO 350 

440 IF INKEY(8)>-1 THEN LOCATE COL,FIL:P 

RINT CHR$(CU): IF COL<GC+1 THEN 350 ELSE 

COL=COL-1:GOSUB 960:GOTO 350 

450 IF INKEY(18)>-1 THEN GOSUB 420 

460 IF INKEY(62)>-1 THEN 7% 

470 GOTO 350 


Dibujo cuadrícula 


480 : 

490 PEN 1:FOR I=1 TO CFILA:FOR J=1 TO MC 
COL:FOR K=1 TO 8 

500 LOCATE GC+8+*(J-1) ,GR+8+*( 1-1 )+K-1 

510 FOR L=1 TO 8 

520 NUM=CUAD(1,J»,K) 

530 NM=NUM AND(2,,(8-—L)) 

540 IF NM=O0 THEN PRINT",,"5ELSE PRINT CHR 
$(231); 

550 NEXT: NEXT:NEXT:NEXT 

560 RETURN 


2 um e e e e e e e e e e a e AAPP e e e e o a e e e Ús o e e e e e e e o e e e e a a a 


O 


O 20. +0. 0 0 


O O- O 70 O 9 


O. Q 0 


GO € 0: Q 


O” O. UD (O 20 20. 200 O O 


O 


Dibujo sprite 


570 : 

580 SYMBOL 240+MCCOL*(1I-1)+J,CUAD(15,J5,1) 
)»CUAD(I,J,2),CUAD(I,J,3),CUAD(1,J,4),CUA 
D(1,J,5),CUAD(1,J,6),CUAD(1,3J,7),CUAD(I, 
J,8) 

590 PEN 1:LOCATE 35+J,1+1:PRINT CHR$(240 
+MCCOL*(1-1)+J) 

600 RETURN 


Cambia punto en cuadrícula 


610 : 

620 GOSUB 960 

630 NUM=NUM AND (255-POSS) 

640 NM=NM XOR POSS:NUM=NUM OR NM 
650 CUAD(1),J>K)=NUM 

660 GOSUB 960 

670 GOSUB 580 

680 RETURN 


Ordenes del editor 


6790 : 

700 PEN 3:LOCATE 35,6:PRINT"ORD:.,," 

710 LOCATE 35,8:PRINT"B,_=":*LOCATE 35,9:P 
RINT"BORRA" 7 

720 LOCATE 35,12:PRINT"D,=":LOCATE 35,13 
:PRINT"COGE":LOCATE 35,14:PRINT"DATOS" 
730 X$=INKEYS$:3 IF X$=""THEN 730 

740 IF X$<>"B"AND X$<>"b"THEN 760 

750 FOR I=1 TO CFILA:FOR J=1 TO MCCOL:FO 
R K=1 TO 8:CUAD(I5,J,K)=0:NEXT:NEXT:NEXT: 
FOR 1=35 TO 40: FOR J=6 TO 23:LOCATE 1,3]: 
PRINT",,":NEXT:NEXT:GOSUB 490:GOTO 210 
760 IF X$="D"OR X$="d" THEN 800 

770 FOR 1=35 TO 40:FOR J=6 TO 23:LOCATE 
IsJ:¿PRINT",,":NEXT:NEXT 

780 GOTO 350 


O 


O” ¡O 7: ¿0 <A ¡O 19 O) O 0 Or 10 


O 0 
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Imprime datos del sprite actual 


790 : 

800 CLS 

810 LOCATE 12,1:PRINT"IMPRESION,,DE,,DATOS 
820 LOCATE 1,5:PRINT "LOS._CARACTERES._EST 
AN_NUMERADOS. DE, I20DA":LOCATE 1,6:PRINT 
"ALDCHALY DE, ARRIBALALABAJO." 

830 LOCATE 1,8:PRINT"PORLEJEMPLO. 3. tie 
uu3":LOCATE 16,10:PRINT"4,.5S..6" 

840 PRINT 

850 FOR I=1 TO CFILA 

850 FOR J=1 TO MCCOL:PRINT"N., CARACTERES 
un 3MCCOL*(1-1)+3;"DATOS:.," 

870 FOR K=1 TO 8:PRINT USING"+4%"; CUAD (1 
»J3K)53:3PRINT">3,"3:NEXT:PRINT 

880 TP=(MCCOL*(1-1)+3):1F TP=4 OR TP=11 
THEN LOCATE 1,25:PRINT"PULSA,_ESPACIOLPAR 
ALCONTINUAR":X$=INKEYS: IF X$<>",,"THEN 88 
O 

890 NEXT:NEXT 

900 LOCATE 1,25:PRINT CHR$(10);CHR$(10): 
LOCATE 1,24:PRINT "GUARDALESTALF IGURA,,(G 
)s":LOCATE 1,25:PRINT"COMIENZA,,DESDE, EL,, 
PRINCIPIO, (P)>,DLSALIRL(S)._?"; 

910 X$=INKEYS: IF X$=""THEN 910 

920 IF X$="G"OR X$="g"THEN 190 

930 IF X$="P"OR X$="p"THEN RUN 

940 IF X$="S"OR X$="s"THEN END ELSE 900 


Coloca carácter bajo el cursor 


950 : 

960 I=INT((FIL-GR)/8)+1 

970 J=INT((COL-GC)/8)+1 

980 K=FIL-(GR+8*(1-1))+1 

990 POSS=2,,(7-COL+GC+8*(J-1) ) :NUM=CUAD (I 
,J,K):NM=NUM AND POSS 

1000 IF NM=0 THEN CU=32 ELSE CU=231 

1010 RETURN 


Tablas de comprobación 


A 


1207 
488 
2005 
3319 
2558 
1330 
3156 
2427 
1315 
4441 
2204 
1450 
2257 
3817 
3334 
2063 
530 
O 
1400 
2894 
2917 
259 
353 
8175 
4290 
2238 
5163 
5153 
2747 
4343 
1355 
10547 
0) 
3278 


350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
450 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 


ono oa 4 uo n4$¿ 40 ¡un 


mom 


690 


770 
780 
790 
800 


O AI O II A 


A 


10) 
1141 
1709 
2637 
1953 
2244 
10218 
2029 
3402 
285 
O 
138 
1831 
5502 
2640 
191 
1450 
5069 
3738 
8845 
353 
6979 
1942 
2190 
2190 
2495 
10) 
2309 
2298 
2761 
6828 
2442 
201 


269029 
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Apéndice 


Rutina para joystick 


A continuación damos una pequeña rutina de joystick de propósito general. Está 
incluida como ejemplo de uso de los joysticks con el Amstrad y como una rutina para 
añadir a tus propios juegos o a los juegos de este libro. 


Define todas las variables como enteros para mayor 
velocidad 


10 DEFINT a-z 


Selecciona y pone el modo pantalla 


20 : 
30 tipo=1 
40 MODE tipo 


O 
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Pone dimensiones vertical y horizontal 


50 : 

60 ymax=24 

70 xmax=20:1F tipo=1 THEN xmax=40 ELSE I 
F tipo=2 THEN xmax=80 


Coloca posición de comienzo 


80 : 
90 x=20:y=10 
100 xult=x:yult=y 


Lectura de joystick 


110 : 
120 a=JOY(O) 


Ajusta posición horizontal y vertical 


130 : 

140 IF a AND 1 THEN y=y-1 ELSE IF a AND 
e THEN y=y+1 

150 IF a AND 4 THEN x=x-1 ELSE IF a AND 
8 THEN x=x+1 


Selecciona cara y alterna cuando se pulsa el botón de 


disparo 


160 : 
170 IF a AND 16 THEN a$=CHR$(255)ELSE a$ 
=CHR$ (224) 


O 


O" 


O: E E O 720 40 


O: TO. 07 0 


Hace saltar el carácter alrededor de la pantalia y lo 
guarda dentro de los límites de la misma 


180 : 

190 IF y<1 THEN y=y+23 ELSE IF y>23 THEN 
y=y-e3 

200 IF x<1 THEN x=x+xmax ELSE IF x>xmax 
THEN x=x-xmax 


Borra posición anterior 


210 : 
220 LOCATE xult,yult 
230 PRINT","; 


Muestra carácter (cara) 


240 : 
250 LOCATE x»y 
260 PRINT a$; 


Actualiza posición anterior y bucle 


270 : 
280 xult=x:yult=y 
290 GOTO 120 


Tablas de comprobación 


10 = 406 110 = 0 210 = 0 

20 = O 120 = 838 220 = 1450 
30 = 839 130 = 0 230 = 350 
40 = 790 140 = 3992 240 = O 
50= O 150 = 3997 250 = “732 
60 = 874 160 = O 260 = 478 
70 = 5541 170 = 3216 270 = 0 

80 = O 180 = 0 280 = 2207 
90 = 1078 190 = 4117 290 = 310 
100 = 2207 200 = 5726 TOTAL = 39148 
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PROGRAMACION DEL Z80.—Rodnay Zaks. 
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ABACUS. Aplicaciones de la hoja electrónica en el QL.—Clare Spottis- 
woode, Blueprint. 

ARCHIVE. Manejo de la base de datos en el OL.—lan Murray, 
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MATEMATICAS PARA PROGRAMADORES. Sistemas de numera- 
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Novedades 


Códigos y claves secretas: 
Criptografía en BASIC 


Gareth Greenwood 


La criptografía y el criptoanálisis han jugado papeles muy 
importantes en muchos acontecimientos políticos y diplomáticos 
de la historia. 

CODIGOS Y CLAVES SECRETAS: CRIPTOGRAFIA 
EN BASIC es una introducción a la criptología para usuarios 
de microordenadores. A lo largo del libro se describen y ana- 
lizan las distintas técnicas de cifrado y descifrado de mensajes y se 
acompañan los programas en BASIC para que el ordenador 
realice el trabajo repetitivo a partir del ingenio, intuición y 
destreza del “rompeclaves”. 

Con tu ingenio y este libro aprenderás técnicas útiles, te 
divertirás, desarrollarás tu mente y, quién sabe, ¡tal vez descu- 
bras algo que antes no sabías! 

El libro contiene versiones completas de todos los programas 
para SPECTRUM, AMSTRAD, MSX, COMMODORE y 
APPLE Il. 


Simulaciones: Replica la realidad 
con tu ordenador 


Tim Hartnell 


Cómo desarrollar y disfrutar con las simulaciones por or- 
denador. Contiene 18 programas de simulaciones listos para 
funcionar, que incluyen: un simulador de vuelo, una tortuga 
robot y la máquina de ajedrez de Torres Quevedo. 

Incluye versiones para SPECTRUM, AMSTRAD, MSX, 
COMMODORE y APPLE Il 


Sistemas expertos: Introducción al 
diseño y aplicaciones 


Tim Hartnell 


Explora el fascinante mundo de los Sistemas Expertos en tu 
microordenador. Entre otros programas, este libro contiene dos 
interesantes intérpretes de PROLOG y LISP realizados en 
BASIC. 

Incluye versiones para SPECTRUM, AMSTRAD, MSX, 
COMMODORE y APPLE Il 


¿Estás cansado de juegos insulsos y demasiado simples ? 
¿Deseas aprender por ti mismo cómo se diseñan de verdad 
buenos videojuegos? ¡Aquí tienes EL LIBRO GIGANTE DE LOS 
JUEGOS PARA AMSTRAD! ¡La recopilación más inteligente de 
juegos para AMSTRAD jamás reunida! 


Programando videojuegos llegarás a dominar cada detalle del 
"Locomotive BASIC” y a depurar tus técnicas de programación. 
Tanto si eres un programador experto como si estás empezando, 
EL LIBRO GIGANTE DE LOS JUEGOS PARA AMSTRAD te hará 
pasar multitud de horas de entretenimiento creativo y te 
permitirá ahondar en el diseño de software con tu 
microordenador. 


Todos los programas están clasificados, estructurados, explicados 
y listados de forma que sea fácil su tecleado y corrección. Se 
incluyen, además, sugerencias para realizar mejoras posteriores a 
los programas. 


Al final del libro encontrarás un editor de SPRITES y una rutina 
de control de JOYSTICK, con las que podrás dar un toque 
“profesional” a tus juegos. 


¿Te atrae la idea de dibujar en tres dimensiones, perseguir la 
retirada de las fuerzas OVNI, destruir naves robot suicidas, 
escapar de las cucarachas cósmicas, eliminar amstroides, 
sabotear al convoy de camiones, ayudar al hambriento caimán o 
intentar “pasar” el microfilm secreto a tu contacto ? 


Pues... ¿a qué esperas? ¡Adéntrate en EL LIBRO GIGANTE DE 
LOS JUEGOS PARA AMSTRAD! ¡No te arrepentirás! 


EAocr 


PE 
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